|
 |
Contrôler la saisie d'une textbox
 Création de l'userform
1- Crée un userform
Propriété =>Caption : Mon prénom
2- Place un label en haut
Propriété =>Caption : Indiquez votre prénom
3- Place une textbox dessous
4- Le bouton de commande tout en bas.
Propriété =>Caption : Valider
Le code
Crée un bouton sur la feuille du classeur pour lancer l'userform
Sub Lance()
Load UserForm1
UserForm1.Show
End Sub
Double-clique sur le bouton "Valider" et tape ce code:
Private Sub CommandButton1_Click()
If Controls("Textbox1") = "" Then
MsgBox "Vous devez ABSOLUMENT indiquer votre prénom !", vbExclamation, _
"ERREUR ... votre prénom SVP !"
Controls("Textbox1").SetFocus
Exit Sub
End If
[A1] = UserForm1.TextBox1
Unload UserForm1
End Sub
Tant que le prénom ne sera pas saisi, l'userform se réaffichera!
Remarque aussi que le focus est placé sur la textbox: Controls("Textbox1").SetFocus
  usfValide.zip  8 ko Télécharge l'exemple
[top]
|
