vérification de la date saisie

**Lechette** · 02/04/2008, 08h30

Bonjour!!

J'ai créé une petite boite dialogue qui demande de saisir la date:

Code :

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

1
2
3
4
5
6
7
8
Dim d 'demande saisir la date du controle
d = InputBox("Veuillez saisir la date du contrôle, puis cliquez sur OK...", _
"Format jour/mois/année")
    If d = "" Then Exit Sub
    If IsDate(d) Then
    Sheets("TdP").Select
        Range("m7").Value = CDate(d)
    End If

Moi même je me trompe souvent dans le format pour saisir cette date.
Est il^possible d'afficher un message qui dit en cas d'erreur "format de date jj/mm/aaaa incorrect ou quelque chose dans le genre?

**ucfoutu** · 02/04/2008, 08h37

Bonjour,

Il y a deux aspects :

Aspect 1 : la manière dont tu contrôles (elle ne me plait pas, mais je n'y reviendrai plus - sujet déjà traité des dizaines de fois)

Aspect 2 : si contrôle non satisfaisant que faire ?

Ceci (exemple)

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
 Dim erreur As Boolean, toto As String
 erreur = True
 While erreur
   toto = InputBox("allez - y")
   If toto = "coucou" Then erreur = False Else MsgBox "recommencxe"
 Wend
End Sub

Si tu ne saisis pas "coucou" ===>> on recommence

**Lechette** · 02/04/2008, 08h52

Mais comment dois je intégrer ce bout de code dans le mien puisqu'il s'agit d'une autre macro? Comment spécifier que quand on clique sur ok après avoir saisi la date, c'est bien command1_click qui a été utilisé?

Et comment vérifier ce format jj/mm/aaaa?

**ucfoutu** · 02/04/2008, 08h55

Je t'ai donné un exemple de retour vers ton inputbox en cas de non satisfaction, c'est tout.

Tu peux de ton côté oublier le Command1 (qui n'est là que pour un exemple !)

A toi de comprendre cet exemple (au demeurant très simple) et de l'intégrer là où il faut, comme tu l'entends...
Excuse-moi, mais là ...

Edit : et pour vérifier le format et la validité : ====>> je te l'ai dit : sujet déjà traité des dizaines de fois ===>>> donc une petite recherche, s'il te plait.