jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 21 déc. 2007 à 08:58
Salut,
Comme c'est bientôt Noël on se sent généreux....
voici un exemple illustrant ce que dit [auteur/JMFMARQUES/615490.aspx jmfmarques],j'espère simplement qu'il n'est pas erroné car je ne connais pas trop Like Private Sub Text1_LostFocus()
If UCase(Text1.Text) Like "###[A-Z][A-Z]####" Then
MsgBox ("Contenu Correct")
Else
MsgBox ("Contenu INCORRECT")
End If
End Sub , ----
[code.aspx?ID=41455 By Renfield]
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 21 déc. 2007 à 15:12
Salut
Plutôt que d'utiliser _LostFocus, il y a _Validate qui est justement fait pour pratiquer des tests avant de perdre le focus et permettre ainsi de rester sur l'objet.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)