Bonjour à tous,
Le code ci-dessous (cf. fichier joint) me permet, lorsque je saisis une date JJ/MM/AAAA" dans la cellule A1, de mettre cette date sous la forme Mois_abrégé Année
Ex : 15/01/2020 devient Janv 2020
Cette macro fonctionne pour tous les mois sauf pour septembre, octobre et novembre. Un mystère...
Ex : 15/10/2020 devient 01/10/2020 (donc ne fonctionne pas et, en plus, me passe le jour à 01).
J'ai beau retourner dans tous les sens, impossible de comprendre...
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
Worksheets("Feuil1").Range("A1") = WorksheetFunction.Proper(Format(Range("A1").Value, "mmm yyyy"))
End If
Application.EnableEvents = True
End Sub
Merci pour votre aide !