Obligation de remplir une Textbox lorsque OptionButton coché

Résolu/Fermé

Momo - 31 mars 2023 à 16:50
yg_be Messages postés 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 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

A voir également:

Obligation de remplir une Textbox lorsque OptionButton coché
Organigramme a remplir word - Guide
Remplir et signer pdf - Guide
Messenger rond blanc coche grise ✓ - Forum Samsung
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
Comment remplir un chèque bnp - Télécharger - Comptabilité & Facturation

4 réponses

Réponse 1 / 4

yg_be Messages postés 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 2024 Ambassadeur 1 552
31 mars 2023 à 17:17

bonjour,

et sans le point?

Réponse 2 / 4

Momo
31 mars 2023 à 18:06

Bonjour,

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

yg_be Messages postés 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 2024 1 552
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
' ...

Réponse 3 / 4

Momo
31 mars 2023 à 19:04

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 23346 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 novembre 2024 1 552
31 mars 2023 à 19:20

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

Réponse 4 / 4

Momo
31 mars 2023 à 19:08

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

Merci pour l'aide !

Discussions similaires

code couleur associé a une image

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

Whatsapp sur Iphone : supprimer un message avant réception

exo pix

[Excel 2010] Remplir cellule d'après contenu d'une autre