Signaler

Probleme de néophyte [Résolu]

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

Je voudrais valider 9 shekbox avec un bouton.
Merci

Utile
+0
plus moins
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
Donnez votre avis
Utile
+0
plus moins
Bonjour
ou comme ça

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


A+
Maurice
Donnez votre avis
Utile
+0
plus moins
Merci Patrice cela fonctionne à merveille.
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !