Probleme de néophyte

Résolu
Caillot76 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -  
Caillot76 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je voudrais valider 9 shekbox avec un bouton.
Merci

3 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    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
  2. momo
     
    Bonjour
    ou comme ça 

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


    A+
    Maurice
    0
  3. Caillot76 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention  
     
    Merci Patrice cela fonctionne à merveille.
    0