Mettre une formule dans une cellule

[mirmoleboss]

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

Code :

=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 :

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 :

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.

[mirmoleboss]

J'arrive à remplir mes cellules en utilisant cette syntaxe:

Code :

1
2
Range("I2:I" & i).Formula = "=LOOKUP(D2,'2.liste IC'!A$2:A$102,'2.liste IC'!B$2:B$102)"
Range("J2:J" & i).Formula = "=LOOKUP(C2,'3.entités pôles'!A$2:A$1558,'3.entités pôles'!B$2:B$1558)"

Je reste cependant bloqué sur mon histoire de variable.

Merci de votre aide.

[issoram]

Bonjour,

Tout d'abord :
formula : c'est pour écrire les formules en absolu
formulaRC: c'est pour écrire les formules en relatif.

Pour ton problème si b et c désignent les indices variables de fin de plage:

Code :

1
2
3
4
5
6
7
8
9
10
 
Dim str_formule as String
str_formule = ""
 
For a = 2 To i
  str_formule = "=RECHERCHE(D2;'2.liste IC'!A$2:A$" & b & ";'2.liste IC'!B$2:B$" & b & ")"
  Range("I2:I" & i).Formula = str_formule
  str_formule = "=RECHERCHE(C2;'3.entités pôles'!A$2:A$" & c & ";'3.entités pôles'!B$2:B$" & c & ")"
  Range("J2:J" & i).Formula = str_formule
Next a

[jfontaine]

Bonjour,

Pour utiliser les formules en Français, il te faut utiliser FormulaLocal.
Formula attendant dans ton cas un VLOOKUP et non un RECHERCHEV

Code :

1
2
3
4
5
6
7
8
9
Dim str_formule as String
str_formule = ""
 
For a = 2 To i
  str_formule = "=RECHERCHE(D2;'2.liste IC'!A$2:A$" & b & ";'2.liste IC'!B$2:B$" & b & ")"
  Range("I2:I" & i).FormulaLocal = str_formule
  str_formule = "=RECHERCHE(C2;'3.entités pôles'!A$2:A$" & c & ";'3.entités pôles'!B$2:B$" & c & ")"
  Range("J2:J" & i).FormulaLocal = str_formule
Next a