VBA - Recherche valeur dans plusieurs onglets

[babacool]

Bonjour tout le monde,

Après une recherche infructueuse des codes VBA sur le forum (je suis novice en VBA), je me résouds à vous demander mon aide pour un travail de recherche de valeur dans plusieurs onglets d'un même classeur.

Je vous joins un fichier exemple contenant une description du résultat attendu.

Je vous remercie par avance quel que soit l'aide apportée

 

[BOISGONTIER]

Re : VBA - Recherche valeur dans plusieurs onglets

Bonjour,

Sub chercheFindMultiFeuillesValeur()
  ligne = 2
  For Each c In Range("A3", [A65000].End(xlUp))
    témoin = False
    For i = 2 To Sheets.Count
     If Sheets(i).Name Like "Ventes*" Then
        Set d = Sheets(i).[A:A].Find(c, LookIn:=xlValues)
        If Not d Is Nothing Then témoin = True
     End If
     Next i
     If Not témoin Then
       ligne = ligne + 1
       Cells(ligne, "f") = c
       Cells(ligne, "g") = c.Offset(0, 1)
       Cells(ligne, "h") = c.Offset(0, 2)
     End If
   Next c
 End Sub

JB
Formation Excel VBA JB

 

[babacool]

Re : VBA - Recherche valeur dans plusieurs onglets

Bonsoir Boisgontier,

Merci bcq pour ta réponse. Je vais essayer d'adapter ce code à mon fichier.
Croisons les doigts mais ton code semble convenir impéccablement.