je souhaite avoir un champ de saisi de texte dasn un userform.
Je ne parviens pas à appeler la sub qui vérifie que la textbox a bien été saisie : TextBox1_Exit
'Propriétés
'VBAProject(PERSO.XLS)\Feuilles\UserForm2
'Name = UserForm2
' avec la fonction de econs sous Excel 2003
'
Private Sub userForm_Initialize()
' pour creer un contrôl de type textbox dans la userform :
' faire glisser depuis la boite à outils, l'outils 'zone de texte'
'
TextBox1.SetFocus
With TextBox1
'N'Autorise pas les mutilignes dans le TextBox
'Attention: cette propriété est toujours à False par défaut
.MultiLine = True
'Spécifie que la touche ENTRÉE ajoutera une nouvelle ligne.
'.EnterKeyBehavior = False
'Appliquer le Focus dans un Textbox et sélectionner tout le texte qu'il contient.
.SetFocus
.SelStart = 0
SelLength = Len(TextBox1.Text)
End With
'Call TextBox1_Exit(SelLength) 'cet appel ne fonctionne pas : erreur 424 objet requis ?
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Garder le focus dans un TextBox tant qu'il est vide.
If TextBox1.Value "" Then Cancel True
End Sub
Private Sub CommandButton1_Click()
MsgBox ""
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value "" Then Cancel True
End Sub
le probleme est ton code de userForm_Initialize
a ce moment là, ton formulaire n'est pas visible.
pas possible, donc de donner le focus aux controles...
