Forder date dans texbox ou laisser vide
Bonjour à tous
j'ai crée un format obligatoire dans certaines de mes Texbox suivant la methode ci dessous, par contre certaines d'entre elles resterons vide, mais au moment de valider il refuse "date incorrecte" je suppose que je dois rajouter la formulation "ou vide" mais je ne sais pas comment l'imbriquer dedans .
Merci de votre aide
Cordialement
Private Sub TextBox1_Change()Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
'Ensuite pour vérifier que c'est bien une date qui a été saisie
Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then
MsgBox "Format incorrect"
TextBox1 = ""
Exit Sub
Else
MsgBox "Format correct"
'...la suite de la procédure
End If
End Sub
Bonjour
Tu devrais joindre ton fichier car sur le test que je viens de faire, cela a l'air de marcher correctement.
Bye !
Bonsoir et merci de ton aide,
En fait j'ai plusieurs texbox dans l'userform donc quand je tape la date pour toutes les texbox à la validation il accepte bien, mais quand j'en laisse une ou plusieurs texbox vide la validation est refusée
(j'ai répété la même procédure pour 10 texbox )
je suppose qu'il faut que j'ajoute à ma procédure de condition du format date la condition ou bien vide
Cordialement
Bonjour,
Difficile de deviner combien de texboxes tu traites ... mais cela semble être un nombre conséquent ....
Du coup, il faudrait peut-être songer à un module de classe ... qui fonctionnerait pour toutes tes textboxes ...