Discussion :

[cedric1803]

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 :
Test.xlsm

Merci de vos réponses

[OBO29]

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.

[kiki29]

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

[unparia]

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 ?

[OBO29]

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.

[cedric1803]

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

[casefayere]

Bonjour,

un module de classe nommé "ClCheck"


son code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
ini
End Sub

code dans la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
ini
End Sub

regardes ce fichier

[cedric1803]

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.

[casefayere]

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

[casefayere]

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)

[cedric1803]

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.

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
ini
End Sub

[cedric1803]

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.

[casefayere]

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

[cedric1803]

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