Zone de texte - controle de validation

[gwendy46]

Bonjour,

Je voudrais avoir un renseignement concernant les controles de validation sur une zone de texte.

Plus précisément, j'ai tenté de mettre sur une feuille excel à une zone de texte la condition suivante:

Sub TextBox1_AfterUpdate()

If Not IsDate(TextBox1) Then
TextBox1 = ""
MsgBox ("mettre une date au format jj/mm/aaaa")
End If

End Sub

Cependant, ce code ne fonctionne que dans un userform.
Pour l'instant je n'arrive qu'à faire de la validation avec un TextBox1_Change, mais je prefererai valider une fois la saisie de l'utilisateur dans la zone de texte finie.
Quelqu'un aurait-il une solution
Merci beaucoup d'avance

Win XP pro SP 3
Excel 2003

 

[Guest]

Re : Zone de texte - controle de validation

Bonjour,

Private Sub TextBox1_[COLOR=red][B]LostFocus[/B][/COLOR]()
If Not IsDate(TextBox1) Then
    TextBox1 = ""
    MsgBox ("mettre une date au format jj/mm/aaaa")
    'Optionel:
     TextBox1.Activate
End If
End Sub

A+

 

[gwendy46]

Re : Zone de texte - controle de validation

Merci beaucoup Hasco,

C'est exactement ce que je voulais

Merci encore

Bonne journée