cs_akmer
Messages postés43Date d'inscriptionmercredi 9 avril 2008StatutMembreDernière intervention 9 septembre 2008
-
13 mai 2008 à 15:36
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
14 mai 2008 à 17:07
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
cs_akmer
Messages postés43Date d'inscriptionmercredi 9 avril 2008StatutMembreDernière intervention 9 septembre 2008 13 mai 2008 à 15:53
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.