Probleme de néophyte

Résolu
Caillot76 -  
Bonjour,

Je voudrais valider 9 shekbox avec un bouton.
Merci

3 réponses

  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
    0
    1. momo
      Bonjour
      ou comme ça 

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


      A+
      Maurice
      0
      1. Caillot76 Auteur
        Merci Patrice cela fonctionne à merveille.
        0