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

Afficher la suite

A voir également:

Obligation de remplir une Textbox lorsque OptionButton coché
Organigramme a remplir word - Guide
Comment remplir un formulaire - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
[Excel 2010] Remplir cellule d'après contenu d'une autre ✓ - Forum Excel
Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel

4 réponses

Réponse 1 / 4

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

bonjour,

et sans le point?

Réponse 2 / 4

Momo

Bonjour,

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

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

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

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 ;)

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

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

Réponse 4 / 4

Momo

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

Merci pour l'aide !

Discussions similaires

Découvrez pourquoi mes SMS affichent deux 'check' !

Whatsapp sur Iphone : supprimer un message avant réception

2 encoches sous le texto et une bulle à gauche du contact

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

Excel : Remplir une cellule en fonction d'une autre

Discussions similaires

Newsletters