XL 2013 Lier une checkbox a plusieurs textbox dans userform

KTM

XLDnaute Impliqué
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

XLDnaute Accro
Bonsoir
VB:
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
 

Discussions similaires

Réponses
15
Affichages
425