Textbox1 vba erreur date
Fermé
mickysor
-
Modifié par mickysor le 8/03/2013 à 13:16
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 9 mars 2013 à 00:56
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 9 mars 2013 à 00:56
A voir également:
- Textbox1 vba erreur date
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1004 vba ✓ - Forum VB / VBA
- Airpods 3 date de sortie - Guide
- Erreur 1001 outlook - Accueil - Bureautique
4 réponses
je crois que j'ai mal tapé le code vba:
mais il ne détecte pas un mauvais mois tapé exemple : 12.34.13
cette erreur n'est pas détectée
pour le jour ça ne marche pas non plus
le voici a nouveau:
Private Sub TextBox4_Change()
Dim Valeur As String
TextBox4.MaxLength = 8
Valeur = Len(TextBox4)
If Valeur = 2 Or Valeur = 5 Then
TextBox4 = TextBox4 & "."
ElseIf Valeur = 8 Then
If Not IsDate(Format(Replace(TextBox4, ".", "/"), "dd/mm/yy")) Then
MsgBox "Format incorrect"
TextBox4 = ""
Exit Sub
Else
End If
End If
End Sub
mais il ne détecte pas un mauvais mois tapé exemple : 12.34.13
cette erreur n'est pas détectée
pour le jour ça ne marche pas non plus
le voici a nouveau:
Private Sub TextBox4_Change()
Dim Valeur As String
TextBox4.MaxLength = 8
Valeur = Len(TextBox4)
If Valeur = 2 Or Valeur = 5 Then
TextBox4 = TextBox4 & "."
ElseIf Valeur = 8 Then
If Not IsDate(Format(Replace(TextBox4, ".", "/"), "dd/mm/yy")) Then
MsgBox "Format incorrect"
TextBox4 = ""
Exit Sub
Else
End If
End If
End Sub
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
8 mars 2013 à 22:11
8 mars 2013 à 22:11
Bonjour,
Juste au passage, ne serait-il pas plus simple d'utiliser le contrôle [Calendar] pour entrer les dates .... dans votre formulaire (UserForm) !
Juste au passage, ne serait-il pas plus simple d'utiliser le contrôle [Calendar] pour entrer les dates .... dans votre formulaire (UserForm) !
je viens de trouver calendar.cette idée ne me convient pas du tout.trop encombrant et cette macro me permet de renommer une multitude d'images et donc chaque image a une date qu'il faut mettre dans une textbox.dans l'ensemble le code vba précédent est intéréssant sauf que j'ai l'impression qu'on pourrait peu être l'améliorer afin de ne pas taper pour le jour 51 le mois 13 et l'année 2080!
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
8 mars 2013 à 23:26
8 mars 2013 à 23:26
Bonjour,
Merci du retour.
Je pense que je n'ai pas compris votre problème.
Désolé, car c'est le plus simple si vous utilisez un formulaire avec zone de texte.
Merci du retour.
Je pense que je n'ai pas compris votre problème.
Désolé, car c'est le plus simple si vous utilisez un formulaire avec zone de texte.
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 260
9 mars 2013 à 00:56
9 mars 2013 à 00:56
Bonsoir,
Prend le DateTimePicker Control.
Tu peux soit utiliser le calendrier, soit saisir, et tu ne peux avoir qu'une date valide.
eric
Prend le DateTimePicker Control.
Tu peux soit utiliser le calendrier, soit saisir, et tu ne peux avoir qu'une date valide.
eric