Probleme de néophyte

Résolu
Caillot76 -  
Bonjour,

Je voudrais valider 9 shekbox avec un bouton.
Merci

3 réponses

  2. momo
    Bonjour
    ou comme ça 

    Private Sub CommandButton1_Click()
        For C = 1 To 9
            Me("CheckBox" & C) = True
        Next
    End Sub


    A+
    Maurice
    1. Patrice33740
      Bonjour,

      Peut-être comme ça : 
      Option Explicit
Private Sub CommandButton1_Click()
  Me.CheckBox1 = True
  Me.CheckBox2 = True
  Me.CheckBox3 = True
  Me.CheckBox4 = True
  Me.CheckBox5 = True
  Me.CheckBox6 = True
  Me.CheckBox7 = True
  Me.CheckBox8 = True
  Me.CheckBox9 = True
End Sub