Next sans For. Et pourtant, il y est !

Version imprimable

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:

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

bonjour,
tu as 2 if pour un seul end if
donc selon ce que tu veux faire le bon code est soit sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
     'elseif au lieu de if 
        elseIf 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

soit sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
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
       end if  'deuxième end if
        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

Cordialement.

06/05/2008, 14h57
Bubale

Ok, un grand merci, c'etait çà le problème!
Bonne journée!