bonjour,
j'ai du mal avec le end if d'un bloc . Voici le code que j'ai ecrit:
mais j'obtient un message d'erreur "erreur de compilation , else sans if "
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sheets("Feuil3").Select For i = 2 To 40 If Month(CDate(Cells(i, 2).Value)) = 1 Then Cells(i, 1) = "janvier" Else: If Month(CDate(Cells(i, 2).Value)) = 2 Then Cells(i, 1) = "février" Else: If Month(CDate(Cells(i, 2).Value)) = 3 Then Cells(i, 1) = "Mars" end if Next i End Sub
J'ai souvent ce genre de message dès que j'utilise des instructions avec "if,else,end if".
Quelqu'un pourrait il m'expliquer.
Merci d'avance
Partager