VBA pour vérifier si le texte existe dans une zone de texte, puis vérifiez si la date est dans le bon format

J'ai un formulaire excel que j'ai créé en combinaison avec VBA. Dans le formulaire, j'ai une zone de texte dans lequel l'utilisateur est de taper une date.

J'ai créé ce VBA clause de sorte que l'utilisateur tape dans une date qui prend en charge le format xx/xx/xxxx.

If Not IsDate(textboxDate1.Text) Then
  Call MsgBox("Please select a correct Date format", vbOKOnly)
  Exit Sub
End If

Cependant, avec ce code VBA, l'utilisateur est invité à entrer une date, si l'utilisateur en a besoin ou pas. Alors, quand j'ai un 4 autres zones de texte pour la saisie d'une date dans mon formulaire, et l'utilisateur a seulement besoin d'entrer en 1 jour, et non pas 5, j'ai le problème où l'utilisateur est invité à saisir une date pour les quatre autres textboxs afin de soumettre le formulaire.

Donc ma question:
Ce code VBA est disponible à première déterminer si le texte existe dans la zone de texte, puis deuxième afin de déterminer si la date est dans le format correct ou pas.

J'ai essayé quelque chose de similaire à ceci:

 If textboxDate1.ListIndex = -1 Then

mais je ne pouvais pas le faire fonctionner avec le IsDate clause.

Merci beaucoup à l'avance.

OriginalL'auteur Paolo Bernasconi | 2012-08-08

  1. 4
    If (Len(Trim(textboxDate1.Text)) <> 0)  And Not IsDate(textboxDate1.Text) Then 
  Call MsgBox("Please select a correct Date format", vbOKOnly) 
  Exit Sub 
End If
    Fonctionne parfaitement
    + 1 🙂 Cependant une suggestion. Vous pouvez utiliser Len(Trim(textboxDate1.Text)) <> 0 au lieu de textboxDate1.Text <> ""
    Fait!
    +1 cependant, vous pouvez optimiser en vérifiant d'abord la longueur. Si Len = 0 il n'y a pas de point de vérification IsDate.

    OriginalL'auteur rene