contoler un text box

[philippe]

Bonjours a tous


tout d'abord felicitation et remerciements pour toutes les astuces
trouvée sur ce site

Connaissant a pu prés bien excel mais tres peu le vba je soummet a votre
sagacité mon probleme.

je voudrais lors de la saisie d'un textbox vérifier le contenu de la saisie

a savoir dans une saisie simple de compta verifié que la date de l'opération
se situe bien dans l'année .

si la date est bonne je souhaite continuer la saisie de l'userfom

dans le cas contraire afficher un message d'erreur et redemander la
saisie d'une date valide


Merci de vos indication

et puisqu'il est encore temps

MEILLEURS VOEUX A TOUS ET TOUTE POUR 2004


PHILIPPE

 

[pierref]

Dim date_encours As Date

date_encours = Date

If Year(MaTextBox.Value) <> Year(date_encours) Then

MsgBox "L'année doit être celle en cours", vbOKOnly
MaTextBox.Value = ""

else

ton code.................

End If

bon courage

a+

 

[philippe]

salut

Un grand merci pour ton astuce ca marche

j'aurais une autre question

peut on repositionner le curseur dans l'userform si un textbox est incorect

Merci

 

[Eric]

Bonsoir à tous & à toutes,
Bonsoir Philippe,

Place ce code dans ta feuille, si la saisie est incorrecte le code te rend le focus

Private Sub Txt21_Exit(ByVal annulation As MSForms.ReturnBoolean)
If IsDate(Txt21.Value) = False Then
MsgBox "ATTENTION, vous avez saisi une date erronée !!", vbCritical, "Erreur dans votre saisie !!!"
annulation = True
...

@ ++ Eric C