Discussion :

[RussellD]

Bonjour tout le monde,

j'aimerais attribuer à une cellule une formule SI sous VBA.
J'ai essayé quelquechose comme :

Code :

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

Range("A1").FormulaR1C1 = "=IF(RC = "Paris",R[2]C = "OK",")"

(je veux que si l'on tape dans la cellule en question Paris, OK s'affiche deux cellules à doite)

Cela ne marche pas... Mauvaise syntaxe? ou autre méthode à utiliser?

Merci pour vos réponses

[sabzzz]

bonjour RussellD,

voici trois solutions possible,

Code :

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

Range("C1").FormulaR1C1 = "=IF(RC[-2] = ""Paris"",""OK"","""")"

Code :

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

Range("C1").Formula = "=IF(A1 = ""Paris"",""OK"","""")"

Code :

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

If [A1] = "Paris" Then [C1] = "OK" Else [C1] = ""

[cb_60]

Bonjour
Peut être pas compris?
pour moi si en A1 Paris alors en C1 OK

Code :

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

Range("C1").FormulaR1C1 = "=IF(RC[-2]=""Paris"",""OK"","""")"

[RussellD]

Bonjour,

merci pour vos réponses à tous les deux, elles marchent parfaitement. Si jamais je veux maintenat avoir la valeur d'une cellule (exemple cellule B2) qui s'affiche pour Paris, je fais :

Code :

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

Range("C1").FormulaR1C1 = "=IF(RC[-2] = ""Paris"",""=R2C2"","""")"

mais ça ne marche pas. j'ai essayé sans égal, et avec .Value...
Vous savez comment faire?

[sabzzz]

bonjour RussellD,

Code :

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

Range("C1").FormulaR1C1 = "=IF(RC[-2] = ""Paris"",R2C2,"""")"

[RussellD]

Merci beaucoup, cela fonctionne

A bientot