Cellule en date. Msgbox ou autre

Salut,

Je me demande si on peut faire une macro SUB lorsqu'une cellule en particulier du classeur est modifié.

Ce n'est pas un bouton mais vraiment une cellule.

exemple Private sub Cells(1,2)_selection change

Le but est que l'utilisateur n'a pas le choix d'écrire une date de format "YYYY-MM-DD".

Soit un Msgbox ou alors il change le format automatiquement.

j'ai essayé cela mais sans succès.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    d = Range("E2:F2")

    If Not d = Format(Range("e2"), "yyyy-mm-dd") Then

    MsgBox "La date inscrite doit être sous le format AAAA-MM-JJ. Merci!", vbCritical

    End If

End Sub

Salut Oly,

je suppose que tu as mis la colonne concernée au Format de cellule adéquat?

Rien qu'avec ce paramétrage, cela devrait fonctionner!

A+

bonjour,

Oui bien sûur j'ai mis le format adéquat, mais parfois quand l'utilisateur écris une date dans le mauvais format. Excel le transforme en Texte et non en date... ce pourquoi je voulais une petite macro