Coder une formule

Bonjour à tous,

J'aimerai coder cette formule xl sous forme de boucle:

Code:

---

=SI(AM2972=0;SI(AO2972=0;SI(AP2972=0;"DC";"Rente");"Invalidité");SI(($D$3-Y2972)/365,25<1;"Incapacité < 1 an";"Incapacité > 1 an"))

---

Merci pour vos propositions;)

Bonsoir,

A contrôler si c'est ce que tu veux et à adapter :

Code:

---

1 2 3 4 5 6 7 8

Dim I As Long   For I = 1 To 10   Range("A" & I).FormulaLocal = "=SI(AM" & I & "=0;SI(AO" & I & "=0;SI(AP" & I & "=0;""DC"";""Rente"");""Invalidité"");SI(($D$3-Y" & I & ")/365,25<1;""Incapacité < 1 an"";""Incapacité > 1 an""))"   Next I

---

Hervé.