vérification de la date saisie

Bonjour!!

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

Code:

---

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?

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:

---

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

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?

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à ...8O

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.

désolé je n'ai pas trouvé d'explications quant à la vérification du format de date.
Si je part sur

Code:

---

if formatdate<>"dd/mm/yyyy" then

---

ca ne fonctionne pas...

ouvre donc ton aide en ligne (sur ta machine) sur l'opérateur Like

et lis...