recherche valeur

[serge]

Bonjour à tous.
Est-il possible de rechercher une cellule comportant une valeur définie, non pas sur la feuille active mais sur TOUTES les feuilles du classeur?
Merci beaucoup de votre aide.

 

[michel]

Bonsoir serge

pour répondre à ta question , tu peux effectuer une boucle sur l'ensemble des feuilles d'un classeur ( j'ai surligné ci dessous les éléments de la boucle sur toutes les feuilles )


par exemple , trouver dans un classeur toutes les cellules contenant xxxx :

Sub VaChercherMonLycos()
Dim Plage As Range
Dim Cible As String
Dim Adresse As String
Dim C As Object
Dim Ws As Worksheet

Cible = "xxxx"
For Each Ws In Worksheets
Ws.Activate
Range("A1").Select
Set Plage = Cells
With Plage
Set C = .Find(Cible)
If Not C Is Nothing Then
Adresse = C.Address
Do
C.Select
MsgBox "La valeur cible est située ici : " & Ws.Name & " " & C.Address
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
Next

End Sub


bonne soirée
michel

 

[serge]

michel
je viens de tester, ai ajouté une InputBox pour déterminer la variable : SUPER !
je te remercie beaucoup.
bonne journée.
serge.