Next sans For..alors qu'il y est !

Bonsoir!
Pourquoi, dans le code ci dessous, lorsque j'execute la macro, M VB Editor me réponds "Erreur : Next sans For"!!?

Code:

---

1 2 3 4 5

For i = 2 To Sheets("Options").Range("B4").Value + 1 If Sheets("Affich").Cells(i, 2).Value = Absent Then Sheets(NomSheet).Cells(i, Nocolonn).Value = 1 Else: Sheets(NomSheet).Cells(i, Nocolonn).Value = 0 Next i

---

Parce que ta condition If n'est pas clôturée ;)

Code:

---

1 2 3 4 5 6

For i = 2 To Sheets("Options").Range("B4").Value + 1 If Sheets("Affich").Cells(i, 2).Value = Absent Then Sheets(NomSheet).Cells(i, Nocolonn).Value = 1 Else: Sheets(NomSheet).Cells(i, Nocolonn).Value = 0 End If Next i

---

Suis-je bête !!
merci beaucoup, ca faisait 15min que je me prenais la tete la dessus! lol!
Bonne soirée!

Un petit truc pour ne pas oublier de clôturer une condition, une boucle, etc..., on écrit directement le début et la fin, on complète entre les deux par la suite. Exemple :

1. Code:

   ---

   1 2 3

   For i = 1 To 100   Next i

   ---

2. Code:

   ---

   1 2 3 4 5

   For i = 1 to 100 If Range("A1") = "toto" Then   End If Next i

   ---

3. Code:

   ---

   1 2 3 4 5

   For i = 1 to 100 If Range("A1") = "toto" Then Range("B1") = "ok" End If Next i

   ---