Discussion :

[sebolix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Gorfael]

Salut zazaraignée, sebolix et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[zazaraignée]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sebolix]

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

Merciiii

[zazaraignée]

Bon alors faudrait pas oublier de cliquer sur .