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 : Sélectionner tout - Visualiser dans une fenêtre à part
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