recherche valeur

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

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