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

A tester

Private Sub CommandButton1_Click()
  For i = 1 To 19
    Me.Controls("CheckBox" & i) = False
  Next i
End Sub

Bonsoir,

Tout d'abord, merci pour votre implication, Hélas non cela ne fonctionne pas !

Merci Encore !!

Bonsoir