Obligation de remplir une Textbox lorsque OptionButton coché

Résolu
Momo -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour,

Quel code je dois mettre dans l'évènement CommandButton1_Click() si je veux bloquer (exit sub) si Textbox1 n'est pas rempli si Option Button coché ? 

Tout ça se trouve vous l'aurez compris dans 1 Userform 

J'ai essayé ça mais ça ne fonctionne pas, ça bloque sur  ".Len (TextBox1) > 0"

Private Sub CommandButton1_Click()
With OptionButton1
If OptionButton1.Value = True Then
.Len (TextBox1) > 0
MsgBox ("message")
Exit Sub
Else
End If
End With

etc ...

Merci


Windows / Chrome 111.0.0.0

4 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    bonjour,

    et sans le point?

    0
  2. Momo
     

    Bonjour, 

    alors là j'ai tout de suite une boite de dialogue "attendu :Identificateur" à la compilation

    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       

      Je regarde mieux le code.  Qu'essaies-tu de faire?  Peut-être ainsi:

      Private Sub CommandButton1_Click()
      If OptionButton1.Value and Len (TextBox1) > 0 then
          MsgBox ("message")
          Exit Sub
      End If
      ' ...
      0
  3. Momo
     

    Bon qui cherche trouve ... j'ai pas mal cogité et trouvé la solution : 

    With OptionButton1.Value = True
    If Me.TextBox1 = "" Then
    MsgBox ("Message")
    Exit Sub
    Else
    End If
    End With
     

    Si ça peut servir à qqun 1 jour ;)

    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       

      Ce with me semble bizarre.  Tant mieux si il fonctionne!

      0
  4. Momo
     

    Pardon yg_be je n'avais pas vu ta réponse 

    Merci pour l'aide !

    0