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

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.

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

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