VBA Tant que textbox vide : Comment appeller la procedure de contrôle ? [Résolu]

archiifk 23 Messages postés mardi 28 septembre 2004Date d'inscription 13 septembre 2011 Dernière intervention - 8 avril 2010 à 13:06 - Dernière réponse : archiifk 23 Messages postés mardi 28 septembre 2004Date d'inscription 13 septembre 2011 Dernière intervention
- 9 avril 2010 à 16:02
Bonjour

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


QuelQu'n peut il m'aider ?

archiifk
Afficher la suite 

Votre réponse

2 réponses

Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 8 avril 2010 à 13:18
+3
Utile
Perso, mon code fonctionne bien ...

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...

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
archiifk 23 Messages postés mardi 28 septembre 2004Date d'inscription 13 septembre 2011 Dernière intervention - 9 avril 2010 à 16:02
0
Utile
Ah,
Je comprends.
Merci beaucoup :)

archiifk
Commenter la réponse de archiifk

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.