Evenement checkbox_click sur plus de 300 checkboxes

Bonjour à tous.

Mon souci est au final assez simple dans l'idée.
Le but de mon programme est que lorsque je coche une checkbox, alors le bouton devient actif, et je peux lancer la macro qui lui correspond.
J'ai réussi à le faire, c'est à dire que je coche n'importe quelle checkbox et magie, mon bouton s'active. Et lorsque rien n'est coché il est inactif.
C'est génial, sauf que j'ai plus de 300 checkboxes à faire comme ça, je vais pas m'amuser à définir la même macro pour chaque checkbox...
Au final j'aimerais que pour toutes les checkboxes de ma page, 100, 200, 1000...etc, il soit possible de les cocher afin que celles-ci activent le bouton.
Si quelqu'un à une idée parce que je vois vraiment pas comment je pourrais faire.

Mon fichier :
Pièce jointe 212758

Merci de vos réponses

Bonjour,

Je pense qu'il faut que tu regardes les modules de classe pour réaliser ce que tu souhaites.
Ceci te permettra de créer dynamiquement tes différents objets sur ta page à l'aide d'un programme.

Attention, ces méthodes sont relativement "complexes" : J'ai déjà fait des essais réussis mais ça m'a pris bcp de temps... mais je suis débutant.

Essaye plutôt de réévaluer ton besoin et de trouver une autre méthode pour atteindre ton objectif final.

OBO29.

Salut, c'est à mon avis également impératif d'y avoir recours. Une recherche te donnera des exemples.

Bonjour,
300 checkboxes !
Et pour activer un seul bouton ...
Et personne pour dire qu'il y a manifestement là un énorme problème de conception, à reconsidérer ?

Citation:

---

Envoyé par unparia

Bonjour,
Et personne pour dire qu'il y a manifestement là un énorme problème de conception, à reconsidérer ?

---

Si : Essaye plutôt de réévaluer ton besoin et de trouver une autre méthode pour atteindre ton objectif final.

Très bien, merci de vos avis, je vais continuer à réfléchir à une méthode plus simple.

Bonjour,

pourquoi ne pas utiliser des cellules excel plutôt qu'un contrôle ?

tu mets des cellules encadrées gras, avec un fond jaune, par exemple

au lieu de cocher un contrôle qu'on veut valider, on écrit un truc dans la cellule

tu regroupes TOUTES ces cellules dans une seule plage nommée

tu utilises l'évènement Worksheet_Change() qui regarde si une modification est apportée à ces cellules
si c'est le cas, tu comptes le nombres de cellules non vides. Si le résultat est 0 alors tu désactives le bouton, sinon tu l'actives

si tu dois un jour ajouter ou supprimer des cellules, tu as juste à modifier ta plage nommée (=modification côté Excel), et ton code n'a pas besoin d'être retravaillé

Ouais c'est une très bonne idée. Le souci c'est que je veux absolument garder l'aspect checkbox à cocher / décocher, que je trouve beaucoup plus intuitif et simple que des cellules à remplir.
Du coup j'ai décidé de resoudre le problème autrement.
Pour l'anecdote je fais boucler ma macro sur les checkbox de ma page, et si celles-ci sont à faux alors je fais rien, sinon le reste de la macro s'exécute. C'est un peu moins sexy que le délire du bouton qui devient inactif, mais c'est tout de même efficace.

Bonjour,

un module de classe nommé "ClCheck"

Pièce jointe 212968
son code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Public WithEvents GroupeCheck As MSForms.CheckBox Private Sub GroupeCheck_Click() If GroupeCheck = True Then With GroupeCheck Sheets("Feuil1").CommandButton1.Enabled = True Else Sheets("Feuil1").CommandButton1.Enabled = False End With End If End Sub

---

un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Public CollectCk As Collection Sub ini() Dim Obj As OLEObject, Cl As ClCheck Set CollectCk = New Collection   For Each Obj In ActiveSheet.OLEObjects If TypeOf Obj.Object Is MSForms.CheckBox Then Set Cl = New ClCheck Set Cl.GroupeCheck = Obj.Object CollectCk.Add Cl End If Next Obj End Sub

---

code dans ThisWorkBook

Code:

---

1 2 3

Private Sub Workbook_Open() ini End Sub

---

code dans la feuille

Code:

---

1 2 3

Private Sub Worksheet_Activate() ini End Sub

---

regardes ce fichier

Bonjour,

j'ai effectivement éssayé de me documenter sur les modules de classe, mais vu que j'en avais jamais fait j'ai trouvé ça assez incompréhensible au premier abord. J'ai rien réussi à faire fonctionner avec mes essais...
C'est gentil à toi de m'aider casefayere ! Par contre j'ai pas moyen de faire fonctionner ton fichier. Y'a un souci dans le module de classe. A l'ouverture du fichier ça me lance une erreur "object variable or with block variable not set" et me surligne la ligne du "For Each" dans le Module1.
J'ai essayé de redeclarer comme il faut cette variable : Dim Cl As ClCheck.
Mais cette fois quand je veux toucher les checkbox, il me dit qu'il y a une erreur de compilation : un Else sans If dans le module de classe apparement.
C'est dommage que ça ne fonctionne pas chez moi, car j'ai vu plusieurs fois ce genre de synthaxe sur le net et j'ai jamais réussi à le faire fonctionner.

je suis étonné car chez moi il fonctionne sans problème, bon je vais essayer le fichier envoyé (peut-être une erreur mais je ne pense pas, je te tiens au courant

celui-ci fonctionne, normal au départ, j'ai pris un fichier vierge et n'ai pas vu le nom de ta feuille,
ça fonctionne à l'ouverture du classeur et si reviens sur la feuille (Activate)

Merci à toi mais j'ai toujours le même message d'erreur. J'avais vu le "feuil1" à modifier mais ça ne changeait rien. J'suis repassé en version française et il me dit toujours "Variable objet ou variable de bloc With non définie". Si t'as pas cette erreur je vois pas de quoi ça peut venir...
C'est dommage parce que je trouvais ça interessant de voir comment fonctionnait les modules de classe.

Aaaaah attends, ça fonctionne nickel une fois que j'ai ouvert le fichier, changé d'onglet et repassé sur l'onglet principal. Par contre à l'ouverture du fichier, y'a pas moyen, ça me met cette erreur.

as-tu bien mis ausssi cette procédure dans "ThisWorkBook"

Code:

---

1 2 3

Private Sub Workbook_Open() ini End Sub

---

Yes ce bout de code est bien présent.
Du coup j'ai fait des tests et j'ai plus de problème à l'ouverture une fois que j'ai ouvert une première fois ton fichier, activé l'édition, enregistré et ensuite réouvert.
Je sais pas pourquoi c'est assez bizarre. Mais au final tout marche parfaitement ! Merci de ton aide, c'est génial j'ai enfin une macro avec un module de classe qui fonctionne.

bien mais chez moi pas de problème, enfin si tu es satisfait, lis bien ma citation en bas de mes messages :roll:

Merci à tout le monde pour vos pistes, solutions, conseils, c'était parfait !