Discussion :

[Bubale]

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

[papimcha]

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

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
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 :

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
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.

[Bubale]

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