masque de saisie vba

Question

Bonjour,
Voici le code que j'ai en ce moment pour des textboxdate dans une userform:

'Après la saisie de la date de début
Private Sub TextBoxDate1_AfterUpdate()
If Not IsDate(TextBoxDate1) Then
MsgBox "Le texte saisi n'est pas une date ou est mal saisi", vbExclamation
TextBoxDate1 = ""
End If
End Sub

'Après la saisie de la date de fin
Private Sub TextBoxDate2_AfterUpdate()
If Not IsDate(TextBoxDate1) Then
MsgBox "Le texte saisi n'est pas une date ou est mal saisi", vbExclamation
TextBoxDate2 = ""
End If
End Sub

Dans chacune de ces textboxdate je saisie une date de début et de fin.
Je souhaiterai que quand je ne saisie pas la date sous le format suivant jj-mm-aaaa qu'il apparaisse un message d'erreur (situé dans le code précédent).
Je tiens à préciser que si ce n'est pas des tirets entre les jours et les mois et les mois et années que le message d'erreur apparraisse aussi.
Si il y erreur dans la saisie je souhaite qu'aprés que le message d'erreur soit apparu que la textbox se réinitialisie

Merci d'avance pour votre aide.

cs_Exploreur · Answer

Salut,

Tu peux, peut-être vérifier la validité de ta date avec : IsDate et vérifier par la suite le format avec : Format

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_akmer · Answer

Je suis débutant, on m'a aidé à créer ces codes donc je ne comprend pas forcément bien.
Est il possible de me fournir les codes vba que quelqu'un fasse les modification nécessaire sur mes codes.
Merci d'avance.

mortalino · Answer

Salut,

pourquoi ne pas utiliser le controle DateAndTimePicker ?
C'est un calendrier sous forme de textbox (préformater pour la date).

Objet à rajouter dans ta boite a outils de tes controles de base (click droit dessus)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Masque de saisie vba

3 réponses

Votre réponse

Discussions similaires