Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherchev en Boucle

filiph79

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Recherchev en Boucle

Bonjour,

peut être...
Code:
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
@+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…