boucle vba pour une formule

bonjour
je cherche a metre cette formule dans une boucle "vba" pouvez vous m'aider

Code:

---

'''''''''''''''''''''=SI(E65<>"";"Cotisation";"")

---

dans une autre boucle

Code:

---

'''''''''''''''''''''=SI(E65<>"";C64+1;"")

---

quel est l'erreur svp

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) i = 1 For Each c In Range("PLAGEA")   c.Formula = si("=A" & CStr(i + 1 ) & "<>";"Cotisation";"") i = i + 1 Next c End Sub

---

Bonjour,

Si tu utilises la propriété Formula, il faut mettre la formule au format Anglais.
Pour utiliser la langue de ta version d'excel, utilises FormulaLocal

Je ne sais ce que représente la plage nommée "PLAGEA" alors il peut y avoir des erreurs, mais l'idée est la

Code:

---

1 2 3 4

Dim c As Range For Each c In Range("PLAGEA") c.FormulaLocal = "=si(A" & c.Row & "<>"""";""Cotisation"";"""")" Next c

---

Bonjour,

Tu devrais trouver une formule avec cette forme

Code:

---

c.Formula = "=IF(A" & CStr(i + 1) & "<>"""",""Cotisation"","""")"

---

Cordialement.