Imposer un format de date

Bonjour (ou re),

Sur tous mes onglets (Lundi au Vendredi), je demande à l'utilisateur de renseigner une date.

Je voudrais qu'un message apparaisse si le format de la date n'est pas le suivant : jj/mm/aaaa

J'ai trouvé un truc comme ça mais je ne sais pas comment l'adapter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Valeur As Byte   Range("G5").Value = Date_visite Date_visite.MaxLength = 10 'nb caractères maxi autorisé   Valeur = Len(Date_visite) If Valeur = 2 Or Valeur = 5 Then Date_visite = Date_visite & "/"   If Not IsDate(Date_visite) Then MsgBox "Format incorrect" Date_visite = "" Exit Sub Else MsgBox "Format correct" End If

---

Le pb c'est que je ne sais pas où placé le code et surtout comment faire pour que la macro se lancer lorsque la cellule est renseigné.

Par avance merci de votre éclairage.

Nini

Salut liop49 et le forum
pas tout à fait d'accord avec toi, sur le principe. Donc une autre poposition.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address(0, 0) <> "G5" Or IsEmpty([G5]) Then Exit Sub 'si l'adresse des cellules modifiées est différente de G5 ou 'que G5 est vide alors sortir If Not IsDate([G5]) Then 'si G5 ne correspond pas à une date MsgBox "G5 doit être une date !" & Chr(13) & "Veuillez ressarsir une Date" [G5].ClearContents 'effacer G5 End If [G5].NumberFormat = "dd/mm/yy" End Sub

---

comme tu fais des macros, tu connais un minimum.

Sous VBEditor, tu colles cette macro dans le module ThisWorkBook (il est dans la fenêtre en haut à gauche VBA-Poject)

Si tu utilises d'autres feuilles dans ton classeur, il faut exclure des feuilles dont G5 peut ne pas être une date (if sh.name = "..." or sh.name = "..." then exit sub) ou limiter aux feuilles concernées (if sh.name<>"lundi"...)
: celui qui demande le moins de fatigue :P
A+