problème avec if et end if

bonjour,

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

Code:

---

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

Code:

---

1 2 3 4 5 6 7 8 9 10

Sheets("Feuil3").Select For i = 2 To 40 If Month(CDate(Cells(i, 2).Value)) = 1 Then Cells(i, 1) = "janvier" ElseIf Month(CDate(Cells(i, 2).Value)) = 2 Then Cells(i, 1) = "février" ElseIf Month(CDate(Cells(i, 2).Value)) = 3 Then Cells(i, 1) = "Mars" end if Next i

---

Code:

---

Cells(i, 1) = Format(Month(Cells(i, 2), "mmmm")

---

bonjour,
les solutions proposées ne fonctionnent pas .

merci

Bonjour,

sans boucle if.. End If :

Code:

---

1 2 3 4 5 6 7 8

Sub mois() Dim I As Byte With Sheets("Feuil3") For I = 2 To 40 .Cells(I, 1).Value = Format(.Cells(I, 2).Value, "mmmm") Next I End With End Sub

---

bonjour le fil le forum un autre methode

Code:

---

1 2 3 4 5 6 7

For i = 2 To 40 If Month(CDate(Cells(i, 2).Value)) = 1 Then Cells(i, 1) = "janvier" If Month(CDate(Cells(i, 2).Value)) = 2 Then Cells(i, 1) = "février" If Month(CDate(Cells(i, 2).Value)) = 3 Then Cells(i, 1) = "Mars" If Month(CDate(Cells(i, 2).Value)) = 4 Then Cells(i, 1) = "avril" 'ect... Next i

---

Bonjour
si tu veux seulement afficher le mois en texte je te propose cette formule.

Code:

---

=TEXTE("1/"&MOIS(B2);"mmmm")

---

Bonne journée