Discussion :

[Bubale]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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