Bonjour!
Cela fait 1h que je me prend la tête sur ce maudit code tout bête...sauf qu'il ne marche pas et lorsque je lance le débeugage, il me met "Next sans For" en sélectionnant le next qui est gras souligné dan sle code ci dessous!
Quelqu'un aurait-il assez de recul nécessaire pour me dire ce qui ne va pas?
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub TotalAR()
Dim FinLign As Integer
FinLign = Sheets("options").Range("B4").Value + 1
Dim compteurA As Integer
Dim compteurR As Integer
Dim tot As Integer
Dim i As Integer
Dim x As Integer
For i = 2 To FinLign
    compteurA = 0
    compteurR = 0
    For x = 1 To Sheets.Count
        If Left(Sheets(x).Name, 7) = "absence" Then
            tot = Sheets(x).Cells(i, 2).Value
            compteurA = compteurA + tot
        If Left(Sheets(x).Name, 6) = "retard" Then
            tot = Sheets(x).Cells(i, 2).Value
            compteurR = compteurR + tot
        End If
    Next x
    Sheets("infos_eleves").Cells(i, 10) = compteurA
    Sheets("infos_eleves").Cells(i, 12) = compteurR
Next i
End Sub