SearchAllSheets secondaire ()
Le faible WS comme feuille de travail
Faible rg comme gamme
Faible FindText comme corde
FindText = Application.InputBox (« écrire svp l'adresse ou la gamme appelée que vous voulez trouver »)
Pour le chaque WS dans ActiveWorkbook.Worksheets
Placer le rg = rien
Placer le rg = le Find_Range (FindText, WS. Cellules, xlFormulas, xlPart, faux)
Sinon le rg n'est rien alors
le WS. Activer
rg. Choisi
Finir si
Après
Sous-marin d'extrémité
'Find_Range écrit par Aaron Blood
Fonction Find_Range (Find_Item comme variante, _
Search_Range comme gamme, _
LookIn facultatif comme XlFindLookIn = xlValues, _
LookAt facultatif comme XlLookAt = xlPart, _
MatchCase facultatif comme booléen = faux) comme gamme
Faible c comme gamme, FirstAddress comme corde
Avec Search_Range
Placer c =. Trouver (_
Ce qui : =Find_Item, _
LookIn : =LookIn, _
LookAt : =LookAt, _
SearchOrder : =xlByRows, _
SearchDirection : =xlNext, _
MatchCase : =MatchCase, _
SearchFormat : suppression de =False) 'cette limite pour XL2000 et plus tôt
Sinon c n'est rien alors
Placer Find_Range = c
FirstAddress = c.Address
Faire
Placer Find_Range = union (Find_Range, c)
Placer c = .FindNext (c)
Faire une boucle tandis que pas c n'est rien et c.Address <> FirstAddress
Finir si
Finir avec
Finir la fonction
|