Sujet Précédent Sujet Suivant

Probleme de néophyte

Résolu/Fermé
Caillot76 Messages postés 28 Date d'inscription jeudi 5 janvier 2017 Statut Membre Dernière intervention 7 avril 2017 - 5 janv. 2017 à 19:17
Caillot76 Messages postés 28 Date d'inscription jeudi 5 janvier 2017 Statut Membre Dernière intervention 7 avril 2017 - 5 janv. 2017 à 20:59
Bonjour,

Je voudrais valider 9 shekbox avec un bouton.
Merci

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
5 janv. 2017 à 20:11
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
5 janv. 2017 à 20:57
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 28 Date d'inscription jeudi 5 janvier 2017 Statut Membre Dernière intervention 7 avril 2017
5 janv. 2017 à 20:59
Merci Patrice cela fonctionne à merveille.
0