Obligation de remplir une Textbox lorsque OptionButton coché

Résolu

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

    bonjour,

    et sans le point?

    0
    1. Bonjour, 

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

      0
      1. Contributeur

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

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

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

      Merci pour l'aide !

      0