Bonsoir à toutes et tous,
Je souhaite faire une macro rechercheV qui me renvoi tous les résultats à chaque fois qu'il y a une occurence. J'ai écris un morceau de code, mais ça renvoi le premier résultat. Je souhaiterais faire ceci:
Ix est en feuille "5-9-12"
Jx est en feuille "5-9-12"
Gy est en feuille "5-17"
Ty est en feuille "5-17"
Si valeur(Ix) = valeur(Gy) je renvoie Ty en Jx ensuite je boucle
Si valeur(Ix) = valeur(Gy+1) il y a insertion de ligne et je renvoie Ty+1 en Jx+1.
Merci de votre aide.
@+
Je souhaite faire une macro rechercheV qui me renvoi tous les résultats à chaque fois qu'il y a une occurence. J'ai écris un morceau de code, mais ça renvoi le premier résultat. Je souhaiterais faire ceci:
Ix est en feuille "5-9-12"
Jx est en feuille "5-9-12"
Gy est en feuille "5-17"
Ty est en feuille "5-17"
Si valeur(Ix) = valeur(Gy) je renvoie Ty en Jx ensuite je boucle
Si valeur(Ix) = valeur(Gy+1) il y a insertion de ligne et je renvoie Ty+1 en Jx+1.
Merci de votre aide.
@+
Code:
Sub test()
Set plage = Sheets("5-17").Range("G2:T" & Sheets("5-9-12").Range("I65536").End(xlUp).Row)
For Each cel In Range("i2", Range("i65536").End(xlUp))
cel.Offset(, 1) = Application.VLookup(cel, plage, 14, 0)
Next
End Sub