Obligation de remplir une Textbox lorsque OptionButton coché

Résolu
Momo -  
yg_be Messages postés 23541 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

Réponse 1 / 4
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

bonjour,

et sans le point?
0
Réponse 2 / 4
Momo
 

Bonjour, 

alors là j'ai tout de suite une boite de dialogue "attendu :Identificateur" à la compilation
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

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
Réponse 3 / 4
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
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 

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

0
Réponse 4 / 4
Momo
 

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

Merci pour l'aide !
0

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

4 réponses
Whatsapp sur Iphone : supprimer un message avant réception
marrakchia -
valou -

8 réponses
[Excel 2010] Remplir cellule d'après contenu d'une autre
nlbmoi -
amelie -

8 réponses
Excel : Remplir une cellule en fonction d'une autre
Alexisarnx -
votre psychiatre -

3 réponses
Découvrez pourquoi mes SMS affichent deux 'check' !
ric025 -
phil -

4 réponses