uniquement format JJ/MM/AA

[DUBOIS]

Dans une feuille je souhaite que les dates entrées soient uniquement au format jj/mm/aa sinon un textbox doit s afficher "entrer les dates au format jj/mm/aa"
j ai trouve sur le net cette macro mais je n arrive pas à l'utiliser elle ne semble pas fonctionner.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not IsDate(Target) Or Target.NumberFormatLocal <> ""jj/mm/aa"" Then
MsgBox (""Les dates doivent être au format jjmmaa, merci !"")
End If
End Sub


d avance merci à la personne qui me répondra.

Pascal

 

[Ti]

Voici ta formule modifiée pour qu'elle fonctionne :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target.Value) Or _
Target.NumberFormatLocal <> "jj/mm/aa" Then
MsgBox "Les dates doivent être au format jj/mm/aa, merci !"
End If
End Sub

ceci dit, le format de date dépend de ce que tu indiques dans le menu Format de cellule. Autrement dit, tu auras beau taper 22/10/02, si ta cellule est au format jj/mm/aaaa, alors tu auras systématiquement une erreur et ta macro événementielle sera plus pénible qu'autre chose.

Bon courage tout de même.