Problème TextBox

[am0niak]

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

 

[Matheop]

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'

 

[am0niak]

Re : Problème TextBox

Un grand Merci à toi MatiChoux,
Ta réponse a été rapide, claire et précise +1
Mon programme fonctionne correctement à présent =)
Cordialement, am0niak

 

[Matheop]

Re : Problème TextBox

Ravi d'avoir pu t'aider. A une prochaine fois peut être. Bonne journée.

Cordialement, Mat'

 

[am0niak]

Re : Problème TextBox

Ah oui ça m'a beaucoup aidé , étant novice je ne connais pas toutes les fonctions possibles. ^^
Bonne journée à toi