Numéro d'un mois à partir du nom du mois en texte

[dre]

Le texte du mois (reconnu par Excel) en A1, par exemple Août
=MOIS(1&A1) renvoie 8.

Attention à l'orthographe (accent) pour les mois de février, août et décembre.

[Pyrof]

Bonjour,
Voila un bout de code, il faut transformer le mois en ascii pauvre

Sub num_mois()
txt = Cells(1, 1)

txt = Trim(LCase(txt))
txt = Replace(txt, "é", "e")
txt = Replace(txt, "è", "e")
txt = Replace(txt, "û", "u")
Select Case txt
Case "janvier": num = 1
Case "fevrier": num = 2
Case "mars": num = 3
Case "avril": num = 4
Case "mai": num = 5
.......

End Select
End Sub

[Usb512]

...

[Pyrof]

Bonjour,

Ce qui n'est pas dit, c'est d'où vient ce texte est-il saisie ou vient-il d'un calcul

S'il est saisi, les accent ne seront pas forcément là, c'est pourquoi je transforme en ascii pauvre

Bonne journée