En attendant les formulistes, une solution vba, il faut que l'accentuation des mois soit respectée...
Code:
Sub test()
Dim c As Range, x As Range, i As Byte
For Each c In Sheets("Feuil1").Range("G1:G5")
For i = 1 To 12
Set x = c.Find(MonthName(i), , xlValues, xlPart, , , False)
If Not x Is Nothing Then
c.Offset(0, 1).Value = MonthName(i)
Exit For
End If
Next i
Next c
End Sub
Bravo, j'ai rien compris mais ça fonctionne! (sensible à la casse également, et ne trouve que le premier mois inclus dans la chaîne). Où va-t-il chercher tout ça , le Tibo
retourne une matrice des nombres : 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330 et 360
nombres qui correspondent aux : 30 janvier, 29 février, 30 mars, 29 avril, 29 mai, 28 juin, 28 juillet, 27 août, 26 septembre, 26 octobre, 25 novembre et 25 décembre de l'année 1900
La formule :
Code:
=TEXTE(LIGNE($1:$12)*30;"mmmm")
retourne donc une matrice des mois (en texte) de janvier à décembre
Il ne reste alors plus qu'à tester si un des mois est présent dans la chaîne à tester.