Discussion :

[liop49]

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

[Gorfael]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
A+