Checkbox

Bonjour,

pourriez vous m'aider à simplifier la démarche ci-dessous

Merci d'avance

Cdlt

Private Sub CommandButton1_Click()

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox4 = False

CheckBox5 = False

CheckBox6 = False

CheckBox7 = False

CheckBox8 = False

CheckBox9 = False

CheckBox10 = False

CheckBox11 = False

CheckBox12 = False

CheckBox13 = False

CheckBox14 = False

CheckBox15 = False

CheckBox16 = False

CheckBox17 = False

CheckBox18 = False

CheckBox19 = False

Bonjour,

Pour le principe.

A adapter en fonction du nombre de contrôles.

Option Explicit
Private Sub CommandButton1_Click()
Dim ctl As Control, nom As String
    For Each ctl In Me.Controls
        nom = ctl.Name
        If InStr(nom, "CheckBox") = 1 Then
            ctl.Value = False
        End If
    Next
End Sub

Merci pour votre réponse,

Mais, mon modeste niveau ne me permet pas de d'adapter votre code

a mon fichier, c'est pour cela que je joins mon fichier,

en espérant que vous puissiez en me donner un petit coup de mains.

Bien cordialement