Autres sortir du texte

francescofrancesco

XLDnaute Junior
Bonsoir, avec ce code, je peux sortir d'une zone de texte vide mais à chaque fois que le MSGBOX sort ou il faut appuyer sur le bouton et faire le choix Ok ou CANCEL.
Vous pouvez annuler le MSGBOX et fermer le formulaire de bouton sans définir la propriété TakeFocusOnClick sur False.
Merci.
VB:
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Tag = "" Then
   TextBox1.Tag = 1
   If TextBox1.Value = "" Then
     If MsgBox("Das Namensfeld darf nicht leer bleiben", vbOKCancel) = 1 Then
       Cancel = True
     Else
       Unload Me
     End If
   End If
   TextBox1.Tag = ""
 End If
 End Sub
 

Pièces jointes

  • textbox.xls
    57.5 KB · Affichages: 9

Jacky67

XLDnaute Barbatruc
Bonsoir, avec ce code, je peux sortir d'une zone de texte vide mais à chaque fois que le MSGBOX sort ou il faut appuyer sur le bouton et faire le choix Ok ou CANCEL.
Vous pouvez annuler le MSGBOX et fermer le formulaire de bouton sans définir la propriété TakeFocusOnClick sur False.
Merci.
VB:
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Tag = "" Then
   TextBox1.Tag = 1
   If TextBox1.Value = "" Then
     If MsgBox("Das Namensfeld darf nicht leer bleiben", vbOKCancel) = 1 Then
       Cancel = True
     Else
       Unload Me
     End If
   End If
   TextBox1.Tag = ""
End If
End Sub
Bonsoir,
Perso je ferais quelque chose comme dans la PJ
Aucun contrôle sur la texbox2 dans cet exemple
 

Pièces jointes

  • textbox V1.xls
    57 KB · Affichages: 10

Jacky67

XLDnaute Barbatruc
Bonjour, mais la vérification du texte vide n'est pas là. Avec la touche Entrée, le focus passe à text2 et cela ne doit se produire que dans text1 il y a des données.
Re..
Dans l'exemple donné, le contrôle se fait sur clic du bouton valider(Bestätigen)
Sinon ajouter ceci
VB:
Private Sub TextBox2_Enter()
    If TextBox1.Value = "" Then
        MsgBox "Das Namensfeld darf nicht leer bleiben"
        Me.TextBox1.SetFocus
    End If
End Sub
 

Discussions similaires

Réponses
15
Affichages
1 K
Réponses
6
Affichages
573