Discussion :

[doudou8mc]

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 .

[Invité]

Bonjour

Essayes cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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

Philippe

[doudou8mc]

Ca a l'air de marcher.Donc généralement je dois toujours revenir à la ligne apres un "Then" ou un Else??

[Invité]

Re

Tu peux écrire après le Then, s'il n'y a pas de Else.

La syntaxe que je te donne est à préférer, cela donne un code plus clair.

Philippe