• Initiateur de la discussion Initiateur de la discussion am0niak
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

am0niak

XLDnaute Nouveau
Bonjour à tous voilà j'ai créé un userform dans lequel j'ai une date à entrer. J'aimerai dans ma textbox que l'utilisateur ait le choix de rien entrer ou bien d'entrer une date mais au format "JJ/MM/AAAA", le problème est que lorsque j'essaie d'entrer une date dès le premier chiffre il m'affiche la MsgBox pour que je l'entre au bon format. Je ne sais pas où mettre ma condition et si elle est correcte. En espérant que vous me compreniez 😕 , je vous remercie d'avance pour avoir pris le temps de me lire.

Dim DateDeMiseEnService2 As Date
Dim DateDeMiseEnService As Variant

Private Sub CommandButton1_Click()
If Not TextBox3 = "" Then
If DateDeMiseEnService2 = CDate("11/11/2011")
MsgBox ("Veuillez entrer une date au format JJ/MM/AAAA")
End If
Exit Sub
Else
DateDeMiseEnService = TextBox3 'soit le champ reste vide
End If
End Sub

Private Sub TextBox3_Change()
If Not TextBox3 Like "" Then
If Not TextBox3 Like "##/##/####" Then
MsgBox "entrez au format jj/mm/aaaa"
End If
End If
End Sub
 
Dernière édition:
Re : Problème TextBox

Hello am0niak,

Je dirais tout simplement qu'au lieu de faire un évènement Change sur ta TextBox, tu devrais utiliser un AfterUpdate qui se charge de vérifier tes conditions une fois le champs de texte modifié (et non à chaque nouvelle frappe clavier).

Cordialement, Mat'
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
165
Réponses
7
Affichages
272
Réponses
41
Affichages
705
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
147
Réponses
2
Affichages
157
Réponses
10
Affichages
282
Retour