Menu

Probleme de néophyte [Résolu/Fermé]

Caillot76 28 Messages postés jeudi 5 janvier 2017Date d'inscription 7 avril 2017 Dernière intervention - 5 janv. 2017 à 19:17 - Dernière réponse : Caillot76 28 Messages postés jeudi 5 janvier 2017Date d'inscription 7 avril 2017 Dernière intervention
- 5 janv. 2017 à 20:59
Bonjour,

Je voudrais valider 9 shekbox avec un bouton.
Merci

Afficher la suite 

3 réponses

Patrice33740 6799 Messages postés dimanche 13 juin 2010Date d'inscription 19 avril 2018 Dernière intervention - 5 janv. 2017 à 20:11
0
Utile
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
Utile
Bonjour
ou comme ça

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


A+
Maurice
Caillot76 28 Messages postés jeudi 5 janvier 2017Date d'inscription 7 avril 2017 Dernière intervention - 5 janv. 2017 à 20:59
0
Utile
Merci Patrice cela fonctionne à merveille.