Obligation de remplir une Textbox lorsque OptionButton coché

Résolu/Fermé
Momo - 31 mars 2023 à 16:50
yg_be Messages postés 22905 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 juin 2024 - 31 mars 2023 à 19:20

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

yg_be Messages postés 22905 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 juin 2024 1 480
31 mars 2023 à 17:17

bonjour,

et sans le point?

0

Bonjour, 

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

0
yg_be Messages postés 22905 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 juin 2024 1 480
31 mars 2023 à 19:06

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

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
yg_be Messages postés 22905 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 juin 2024 1 480
31 mars 2023 à 19:20

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

0

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

Merci pour l'aide !

0