Prblème avec les if , else end if
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:
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 .
