Bouton d'option pour textbox invisible

Bonjour à tous

Sur mon USF j’ai mis 2 boutons d’option Ok et No qui active et désactive une textbox avec cette formule :

Private Sub OptionButton1_Click()

txtprogtx.Visible = False

txtprogtx.Value = ""

End Sub

Private Sub OptionButton2_Click()

txtprogtx.Visible = True

txtprogtx.SetFocus

End Sub

Est-il possible de mettre 1 seul bouton d’option qui ferais les 2 fonctions (je clique dessus pour activer et reclique dessus pour désactiver ?) et si possible que la textbox soit invisible par défaut (invisible à l’ouverture de l’ USF car je n’en ai pas souvent besoin .

Merci d’avance .

Cdlt , Philippe .

11case-invisible.zip (8.04 Ko)

Bonjour philnord,

A tester :

22case-invisible.zip (13.98 Ko)

Cordialement,

Merci IB ça fonctionne nickel

Cdlt , Philippe .

Rechercher des sujets similaires à "bouton option textbox invisible"