TextBox combiné à un OptionButton

Bonjour,

Dans la forme du fichier ci-joint, si le bouton d’option « Date inconnue » est activé et que j’inscris quelque chose dans le TextBox2, le bouton d’option est désactivé ; ceci est partait !

Je voudrais maintenant que si je clique à nouveau sur le bouton d’option, le texte de la TextBox s’efface – ça aussi ça fonctionne bien – mais qu’en plus le bouton d’option soit indiqué comme actif, ce qui n’est pas le cas

Afin que ce bouton d’option soit à nouveau actif, je dois cliquer une deuxième fois dessus.

J’ai tenté une ou l’autre ligne de code – encore visibles – mais ça n’a rien donné.

Pouvez-vous m’aider ?

Cordialement.

Bonjour Yvouille,

Ci-joint une proposition à tester.

Bonne journée !

Bouben

Bonjour Yvouille,

Si j'ai bien compris ton problème, il te suffit d'inverser 2 lignes (et de virer les Application.EnableEvents qui ne sont plus utiles) :

Private Sub OptionButton3_Click()
TextBox2 = ""
OptionButton3 = True
End Sub

Cordialement,

Un tout grand merci à tous les deux pour vos réponses

Effectivement que la solution de Sébastien est géniale de simplicité.

Très bonnes salutations.