Recherchev en Boucle

[filiph79]

Bonjour le forum et tous mes voeux pour cette nouvelle année.

Je souhaite (si c'est possible) automatiser une recherchev pour renseigner l'adresse d'une facture.
JE le fais comme ci dessous :
Range("C6").FormulaR1C1 = "=VLOOKUP(R[-1]C,Clients!C1:C11,2,FALSE)"
Range("C7").FormulaR1C1 = "=VLOOKUP(R[-2]C,Clients!C1:C11,3,FALSE)"
Range("C8").FormulaR1C1 = "=VLOOKUP(R[-3]C,Clients!C1:C11,4,FALSE)"
Range("C9").FormulaR1C1 = "=VLOOKUP(R[-4]C,Clients!C1:C11,5,FALSE)"
Range("C10").FormulaR1C1 = "=VLOOKUP(R[-5]C,Clients!C1:C11,6,FALSE)"
Range("C11").FormulaR1C1 = "=VLOOKUP(R[-6]C,Clients!C1:C11,7,FALSE)&"" ""&VLOOKUP(R[-6]C,Clients!C1:C11,8,FALSE)"


sur la ligne 1 de l'adresse je récupère le contenu de la colonne 2 de ma table
sur la ligne 2 de l'adresse je récupère le contenu de la colonne 3 de ma table
sur la ligne 3 de l'adresse je récupère le contenu de la colonne 4 de ma table
sur la ligne 4 de l'adresse je récupère le contenu de la colonne 5 de ma table
sur la ligne 5 de l'adresse je récupère le contenu de la colonne 6 de ma table

j'ai donc tenté :
for i=1 to 6
cells(i+5,3).FormulaR1C1 = "=VLOOKUP(R[-1]C,Clients!C1:C11,i+1,FALSE)"
next i
mon problème est que je n'arrive pas a passé la valeur du compteur dans ma recherche......
Excel me renvoie le message d'erreur #NOM?
Possible que vous ne voyez pas l'intéret d'une telle "entreprise", je peux bien sur directement faire la recherche par formules dans les cellules, mais l'exercice m'intéresse.
Si vous pouvez m'aider?
Merci de vos réponses

 

[Pierrot93]

Re : Recherchev en Boucle

Bonjour,

peut être...

for i=1 to 6
cells(i+5,3).FormulaR1C1 = "=VLOOKUP(R[-" & i & "]C,Clients!C1:C11," & i +1 & ",FALSE)"
next i

non testé...

bon après midi
@+

 

[filiph79]

Re : Recherchev en Boucle

Bonjour,

c'est parfait !!!!

Merci et bonne après midi