Fonction Si avec les valeurs des cellules

Bonjour à tous,
J'ai besoin de vos lumières pour ce problème: j'ai une colonne de données (A2: A1000) et un paramètre fixe (cellule B2), je souhaite écrire dans le champ (C2:C1000) en utilisant une boucle la formule en abrégé :
For i=1 to 1000
Si (valeur de la cellule (i) dans la colonne A +B2 >=0;0;1)
next i
J'ai essayé ces deux codes distinctement mais ils ne donnent rien

Code:

---

Range("C" & i).Formula = "=IF(Range("A" & i & ").value+B2>= 0,0,1)"

---

Code:

---

Range("C" & i).Formula = "=SI(" & Range("C" & i).Value & "+" & "M2" & ">=0,0,1)"

---

Merci de vos réponses

bonjour,

tu devrais plus faire genre ceci :

Code:

---

1 2 3

For I = 2 To 1000 Cells(I, 3).Formula = "=SI(A" & I & "+ $B$2>0,0,1)" Next I

---

Merci pour ta réponse mayekeul la encore ça donne des erreurs, le problème est que la formule obtenue commence par un Si (ou la lettre i est miniscule) alors qu'il faudrait qu'elle soit majuscule. Aussi ton code ne répond pas à ma question qui est d'insérer une valeur dans chaque formule pour lier au minimum les cellules
Exemple:
=SI(3,0945242+B2>0;0;1)

Salut,

Je te propose la formule suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim a,b as variant   For I = 0 To 1000 a = Cells(2 + I, 1) b = Range("b2").Value   If a + b > 0 Then Cells(2 + I, 3) = 1 Else: Cells(2 + I, 3) = 0 End If Next I

---

et en faisant cela?

Code:

---

1 2 3

For I = 2 To 1000 Cells(I, 3).Formula = "=IF(A" & I & "+ $B$2>0,0,1)" Next I

---