copie de formule d'une cellule

bonjour tout le monde,

mon ptit soucis (en dehors de débuter dans le VBA ;o)) est que je n'arrive pas à imposer une formule de type : =SI(A5="88";"HEMATO";SI(A5="89"; "CHIMIE")), ma formule n'est pas forcément exacte mais c'est sur le principe que cela coince. Je veux l'imposer sur une colonne par exemple A, ligne 2 à 10.
voila à ce que je pensais :

Code:

---

1 2 3

for i =2 to 10 cells(1,i).formula = "=SI(A5="88";"HEMATO";SI(A5="89"; "CHIMIE"))" next i

---

le soucis est qu'à 88 il beug car il reconnait le deuxième " comme étant la fin de la formule.

Comment puis je faire?

Merci pour votre aide

Avec Formula, les mots clés des formules doivent être en anglais.

Code:

---

1 2 3

For i = 2 To 10 Cells(1,i).Formula = "=IF(A5="88";"HEMATO";IF(A5="89"; "CHIMIE"; ""))" Next i

---

Si tu veux des formules en français, utilise FormulaLocal.

Code:

---

1 2 3

For i = 2 To 10 Cells(1,i).FormulaLocal = "=SI(A5="88";"HEMATO";SI(A5="89"; "CHIMIE"; ""))" Next i

---

De plus, j'ai ajouté une valeur de chaîne vide ("") pour valeur si faux de ton deuxième SI.

Salut zazaraignée, sebolix et le forum

Code:

---

1 2 3

For i = 2 To 10 Cells(1,i).FormulaLocal = "=SI(A5="88";"HEMATO";SI(A5="89"; "CHIMIE"; ""))" Next i

---

Même si la méthode est juste, je ne pense pas que le résultat soit probant : on pourrait avoir par exemple

Code:

---

1 2 3

For i = 2 To 10 Cells(1, i).FormulaLocal = "=SI(" & Chr(63 + i) & "5=88;""HEMATO"";SI(" & Chr(63 + i) & "5=89; ""CHIMIE""; """"))" Next

---

Mais sans infos supplémentaires, c'est dur d'imaginer si la colonne A est en format texte ou non, si le fait que A5 soit en relatif est normal ou non.
A+

Mouais... J'avais pas remarqué les apostrophes, ou plutôt, je les ai carrément oubliées!

Mais il y a une astuce. Il faut simplement doubler les apostrophes qui posent problème.

Code:

---

1 2 3

For i = 2 To 10 Cells(1,i).Formula = "=IF(A5=""88"";""HEMATO"";IF(A5=""89""; ""CHIMIE""; """"))" Next i

---

ou

Code:

---

1 2 3

For i = 2 To 10 Cells(1,i).FormulaLocal = "=SI(A5=""88"";""HEMATO"";SI(A5=""89""; ""CHIMIE""; """"))" Next i

---

merci bcp, une nouvelle fois ça marche, je savais que je pouvais compter sur vous!!

Merciiii

Bon alors faudrait pas oublier de cliquer sur :resolu: .