Fonction IF sous VBA

Bonjour tout le monde,

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

Code:

---

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

bonjour RussellD,

voici trois solutions possible,

Code:

---

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

---

Code:

---

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

---

Code:

---

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

---

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

Code:

---

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

---

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:

---

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?

bonjour RussellD,

Code:

---

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

---

Merci beaucoup, cela fonctionne

A bientot