bonjour,

j'ai du mal avec le end if d'un bloc . Voici le code que j'ai ecrit:

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
mais j'obtient un message d'erreur "erreur de compilation , else sans if "
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