Probleme de néophyte

Résolu
Caillot76 Messages postés 29 Statut Membre -  
Caillot76 Messages postés 29 Statut Membre -
Bonjour,

Je voudrais valider 9 shekbox avec un bouton.
Merci

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
Réponse 2 / 3
momo
 
Bonjour
ou comme ça 

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


A+
Maurice
0
Réponse 3 / 3
Caillot76 Messages postés 29 Statut Membre
 
Merci Patrice cela fonctionne à merveille.
0