XL 2013 Lier une checkbox a plusieurs textbox dans userform

[KTM]

Salut Tout le Forum
J'aimerais lier une checkbox à 20 textbox. J'explique:
Mes 20 textbox doivent afficher la valeur "0" si checkbox1=true. Merci.

 

[laurent950]

Bonsoir

Private Sub CheckBox1_Click()
' https://www.ozgrid.com/VBA/control-loop.htm
Dim cCont As Control
    Select Case CheckBox1.Value
    ' Mes 20 textbox doivent afficher la valeur "0" si checkbox1=true
        Case True: CheckBox1.Caption = "Vrai"
            For Each cCont In Me.Controls
                If TypeName(cCont) = "TextBox" Then
                    'MsgBox cCont.Name
                    cCont.Object = 0
                End If
            Next cCont
        Case False: CheckBox1.Caption = "Faux"
       
        Case Else: CheckBox1.Caption = "Null"
       
    End Select
End Sub

Laurent