Sélectionner plusieurs Checkbox en 1 clic

[Syntaxerror]

Bonjour,
Ayant beaucoup de checkbox sur mon formulaire (32), je voudrais créer un bouton qui permettrait de tous les sélectionner en un seul clic.
Comment dois-je m'y prendre ?

Merci pour vos réponses

 

[JNP]

Re : Sélectionner plusieurs Checkbox en 1 clic

Bonjour Syntaxerror 🙂,
Logiquement, tu crée un bouton, dans la procédure du bouton onclick, tu fais une boucle du type:
For I = 1 to 32
(Checkbox & I).value = True
Next I
A te lire 😎

 

[Syntaxerror]

Re : Sélectionner plusieurs Checkbox en 1 clic

Merci JNP de te pencher sur mon problème mais :
1) La syntax que tu me donne n'est pas acceptée et s'affiche en rouge
2) Si j'ai bien compris ta boucle, elle implique que les Checkbox s'appellent Checkbox1, Checkbox2...
J'y avais pensé mais je voulais éviter d'avoir à les renommer car ces noms ne sont pas très parlant et avec 32 objets, faut pas que je me mélange les pinceaux.

 

[Pierrot93]

Re : Sélectionner plusieurs Checkbox en 1 clic

Bonjour Syntaxerror, JNP

tu parles de quel type d'objet, fait avec la "barre d'outils formulaire" ou avec la "boite à outils controles" ? D'autre part ces controles se trouvent sur une feuille Excel ou dans un "UserForm" ? Besoin d'un peu plus d'info pour pouvoir t'aider.

bon après midi
@+

 

[Syntaxerror]

Re : Sélectionner plusieurs Checkbox en 1 clic

Mes Check box ont été créée à partir de "boite à outils controles" dans un "Userform".
C'est ma faute, j'aime bien le français et j'ai la manie de traduire Userform=>formulaire (utilisateur)...;-)

 

[Pierrot93]

Re : Sélectionner plusieurs Checkbox en 1 clic

Re

regarde le code ci dessous, si selectionner veux dire les cocher ou leur donner la valeur "True" ... A placer dans le module de ton USF, après avoir créé unbouton nommé "CommandButton1".

Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
        Ctrl.Value = True
    End If
Next
End Sub

@+

 

[Syntaxerror]

Re : Sélectionner plusieurs Checkbox en 1 clic

Merci ca marche !
Juste que je ne comprend pas trop la ligne :
"If TypeOf Ctrl Is MSForms.CheckBox Then"
Mais bon ca c'est une autre histoire...
Je crois que je vais devoir me palucher, l'aide;-)

 

[Pierrot93]

Re : Sélectionner plusieurs Checkbox en 1 clic

Re

je teste si le controle est bien un ""checkbox", sur un USF tu peux avoir d'autres types, "optionbutton", "textbox", "listbox" etc...

@+