Simplification Textbox visible/invisible

Bonjour,

Pensez-vous qu'il soit possible de simplifier ce code, qui cherche à rendre visible des Texbox dans un UserForm lorsque la CheckBox est cochée :

En réalité, j'ai bien plus de Textbox, et ça alourdit réellement le code.

Bonjour,

une solution pour tous les textbox :

Private Sub CheckBox_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Visible = CheckBox
Next Ctrl
End Sub

Pour l'appliquer seulement à certain TextBox on peut rajouter une condition .Tag aux TextBox concernés...

A+

Bonjour,

Je te remercie pour ta réponse

Je vais essayer de faire au mieux, mais ça m'a l'air compliqué