Bonjour,

j'ai beaucoup de mal à gérer la syntaxe avec les if ,else ,end if.Lors que j'exécute des macros avec les if , j'ai souvent le message d'erreur "Els sans if". J'ai beau rajouter le if , ça n'y change rien . Voici mon code:

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
 Dim DerLig As Long, d As Long, LeTot As Long
Dim c As Byte, LeMois As Byte
 
For c = 8 To 18 'Boucle sur les mois en feuille 2
    LeMois = Month(Sheets("Donnees pour graph").Cells(40, c)) 'Récupère le mois en fonction de la colonne
    DerLig = Sheets("Feuil3").Cells(Columns(2).Cells.Count, 2).End(xlUp).Row 'Défini la dernière ligne remplie de la feuille1 sur base de la colonne 2
        For d = 3 To DerLig 'Boucle sur les lignes de la feuille 2
            If Month(Sheets("Feuil3").Cells(d, 2)) = LeMois Then LeTot = LeTot + Sheets("Feuil3").Cells(d, 3)  'Si le mois correspond on incrémente le Total
                   Else:LeTot = 0
                End If
            Next d
    Sheets("Donnees pour graph").Cells(2, c) = LeTot 'On affecte le total à la cellule correspondante
    'LeTot = 0 'Remise à zéro du Total
Next c 'Passe au mois suivant
 
End Sub
Quelqu'un peut-il me donner une règle de base pour la syntaxe de ces "if..." sur excel 2003, car j'ai souvent ce PB .

Merci .