Discussion :

[doudou8mc]

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

[laurentabj]

Code :

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

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

[aalex_38]

Code :

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

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

[doudou8mc]

bonjour,
les solutions proposées ne fonctionnent pas .

merci

[mapeh]

Bonjour,

sans boucle if.. End If :

Code :

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

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

[laetitia]

bonjour le fil le forum un autre methode

Code :

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

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

[Abed_H]

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

Code :

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

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

Bonne journée