Ours masqué
XLDnaute Junior
Bonsoir,
Encore une fois, je viens solliciter votre aide : je suis sur une userform avec des textbox qui ont chacune une date.
Je voudrais saisir une nouvelle date et avant de reporter le texte dans ma feuille de calcul, vérifier le format. Je pensais utiliser textbox1_beforeupdate et afterupdate. Alors, autant j'arrive à utiliser afterupadte, autant, je ne comprends pas l'autre.
Merci de m'aider sur ce problème. Je sèche... :S J'ai essayé :
Encore une fois, je viens solliciter votre aide : je suis sur une userform avec des textbox qui ont chacune une date.
Je voudrais saisir une nouvelle date et avant de reporter le texte dans ma feuille de calcul, vérifier le format. Je pensais utiliser textbox1_beforeupdate et afterupdate. Alors, autant j'arrive à utiliser afterupadte, autant, je ne comprends pas l'autre.
Merci de m'aider sur ce problème. Je sèche... :S J'ai essayé :
Private Sub TextBox1_AfterUpdate()
If TextBox1.Text Like '[0-9][0-9]/[0-9][0-9]/[0-9][0-9]' Or _
TextBox1.Text Like '[0-9]/[0-9][0-9]/[0-9]' Or _
TextBox1.Text Like '[0-9][0-9]/[0-9]/[0-9]' Or _
TextBox1.Text Like '[0-9]/[0-9]/[0-9]' Then
Call Couleurs.InitPiloteCouleur(DonnéesPilote.Caption)
TextBox1.BackColor = Range('A6').Interior.Color
Else
TextBox1_BeforeUpdate (True) 'ne fonctionne pas !!!!
End If
End Sub