FormulaR1C1 dans une boucle ?

[ben]

Bonjour a tous

je cale sur la syntaxe a utiliser paour la fonction 'FormulaR1C1'
a utiliser dans une boucle fot i=1 to 10 par exemple

et je voudrais changer le numero de ligne par l'increment de i
par exemple :

for i= 1 to 10
ActiveCell.FormulaR1C1 = _
'=VLOOKUP(RC[-64],[monfic.XLS]R2C5:R5000C6,2,FALSE)'
next i

en fait je cherche a modifier le [-65] par par ex [-10*i] ect....


mais ca ne marche pas ....

merci pour votre aide

 

[_Thierry]

Bonjour Ben, le Forum

Je te conseillerai en premier lieu d'abandonner le 'FormulaR1C1' c'est plus une casse t^te qu'autre chose à utiliser, mis à part dans certaines rares occasions, mais pas ce n'est justifié ici.

Donc 'Formula' est bien plus simple.

Ensuite il y a une grosse erreur de concepte dans ton approche de Boucle VBA

En effet tu dis 'Je veux écrire dix fois dans la cellule active'.... Donc en fn de compte tu n'auras pas vraiment un truc cohérent... non ?

De plus tu oublies la Feuille de 'MonFic.xls' dans ta syntax.

Voici déjà une approche basic sur 'ActiveCell' :

Sub Macro1()

ActiveCell.Formula = '=VLOOKUP(' & ActiveCell.Offset(0, -2).Address(0, 0) & _
                      ','[monfic.xls]LaFeuille'!A2:C15,3,0)'

End Sub

Et si par aventure ton idée est de vouloir boucler pour écrire cette 'Formula' sur dix cellules, alors suis cette logique :

Ici je veux écrire en colonne B (de la ligne 1 à 10) une formule qui va prendre la cellule de ligne correspondante en colonne 'A' comme valeur cherchée... Et donc une plage sur ton classeur source 'MonFic.xls' sur 'LaFeuille' de 'A2 à C15', en colonne 3.

Sub VlookUpBuilder()
Dim i As Byte

For i = 1 To 10
    Cells(i, 2).Formula = '=VLOOKUP(' & Cells(i, 1).Address(0, 0) & _
                          ','[monfic.xls]LaFeuille'!A2:C15,3,0)'
Next


End Sub

Bonne Soirée
@+Thierry