kan3pz
XLDnaute Occasionnel
Bonjour à tous,
J'ai de nouveau besoin de votre aide pour une macro.
Je souhaite faire l'équivalent d'un RECHERCHEV selon une condition.
Dans mon fichier test je souhaite récupérer le type (dans mon onglet correspondance) de mon code (colA) uniquement si mon code complet (colB) ne contient pas la lettre G.
Pour le moment je récupère le type de mon code mais je ne sais pas comment faire pour ajouter la condition :
Merci de votre aide
J'ai de nouveau besoin de votre aide pour une macro.
Je souhaite faire l'équivalent d'un RECHERCHEV selon une condition.
Dans mon fichier test je souhaite récupérer le type (dans mon onglet correspondance) de mon code (colA) uniquement si mon code complet (colB) ne contient pas la lettre G.
Pour le moment je récupère le type de mon code mais je ne sais pas comment faire pour ajouter la condition :
Code:
Sub recherche()
Dim Rg As Range, Rg2 As Range
For Each Rg In Range(Range("A2"), Range("A2").End(xlDown))
Set Rg2 = Worksheets("Correspondance").Range("A:A").Find(what:=Rg)
If Not Rg2 Is Nothing Then Rg.Offset(, 2) = Rg2.Offset(, 1)
Next
End Sub
Merci de votre aide