Boucle Vlookup

Bonjour à tous,

Je sais que ce sujet à été traité de nombreuses fois mais je n'arrive pas à comprendre le fonctionnement du Vlookup en VBA.

Je sais qu'il s'agit de l'équivalent de rechercheV en Français (que je sais parfaitement utiliser) mais étant débutant en VBA, je n'arrive pas à faire ma formule dans une macro.

Ci-joint un exemple :

J'ai 2 feuilles dans un classeur.

Je souhaite mettre en colonne C de la Feuil1 la formule suivante sous vba:

=Recherchev(B2;Feuil2!$A$2:$C$12;3:FAUX)

en sachant que la colonne B de la feuille 1 peut être variable (de différente longueur ou avec des nom différents)

Merci d'avance,

Jawst

Bonjour,

Sub modif2()
Dim Cel As Range
    With Sheets(1)
        For Each Cel In .Range("B2:B" & .Range("B2").End(xlDown).Row)
            Cel.Offset(, 1).Formula = "=VLOOKUP(" & Cel.Address(0, 0) & ",Feuil2!$A$2:$C$12,3,FALSE)"
        Next Cel
    End With
End Sub

A+

Bonjour Frangy,

Merci pour ta macro elle marche super bien

peut tu me l'expliquer afin que je puisse la refaire si nécessaire ?

Jawst

La formule :

=RECHERCHEV(B2;Feuil2!$A$2:$C$12;3;FAUX)

se traduit en VBA par :

=VLOOKUP(B2,Feuil2!$A$2:$C$12,3,FALSE)

Pour placer cette formule de C2 à C17, il suffit de remplacer B2 par une variable qui correspondra aux valeurs de B2 à B17.

La formule devient :

=VLOOKUP(" & Cel.Address(0, 0) & ",Feuil2!$A$2:$C$12,3,FALSE)

Cel.Address(0, 0) représentant la référence de la cellule (B2 à B17).

A+

merciii beaucoup