Bonjour,
Je souhaite mettre la formule suivante dans plusieurs cellules à l'aide de VBA.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
=RECHERCHE(D2;'2.liste IC'!A$2:A$b;'2.liste IC'!B$2:B$102)
J'avais fais comme ca mais cela ne marche pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
For a = 2 To i
Cells(a, 9).Value = "=RECHERCHE(D2;'2.liste IC'!A$2:A$102;'2.liste IC'!B$2:B$102)"
Cells(a, 10).Value = "=RECHERCHE(C2;'3.entités pôles'!A$2:A$204;'3.entités pôles'!B2:B204)"
Next a
J'ai regardé comment se comporté l'enregistreur de macro:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    Range("I2").Select
    ActiveCell.FormulaR1C1 = _
        "=LOOKUP(RC[-5],'2.liste IC'!R2C[-8]:R102C[-8],'2.liste IC'!R2C[-7]:R102C[-7])"
Le code n'est pas plus compréhensible.


De plus les "valeurs" A$102 et A$204 sont variables, j'ai deux variables (b et c) qui comportent le bon numéro de ligne. Il faudrait donc que j'arrive à faire quelque chose comme ca: A$b et A$c

Est-ce quelqu'un peu m'aider?

Merci et bonne journée.