Boucle sur un événement en VBA Fermé

Question

Bonjour, 

J'essaie de faire une macro qui lorsqu'on clique sur un bouton pointe sur un graphique. 
Le problème est que j'aimerai faire ceci pour un bon nombre de bouton et un bon nombre de graphique. Il me faut faire un boucle sur les fonctions événementielles.
Pour un bouton, j'ai le code :

Private Sub BoutonCourant_1_1_Click()
Worksheets("graphiques de répartition").Activate
ActiveSheet.ChartObjects("graph_1_1").Select
End Sub

(BoutonCourant_1_1 est le nom de mon premier bouton)

Savez-vous comment faire ceci pour BoutonCourant_i_j et graph_i_j avec i et j de 1 à 10 chacun

Merci d'avance pour vos réponse

Jean-Marie · Answer

passe l'idendifiant de ton graphique en parametre :

Sub BoutonCourantClick(id as integer)
Worksheets("graphiques de répartition").Activate
ActiveSheet.ChartObjects("graph_" & id).Select
End Sub

Guil · Answer

D'accord, c'est l'idée.
Mais comment on fait pour mettre un indice dans l'événement "Click()". 
Dans ta réponse, on a une procédure "BoutonCourantClick(id as integer)", mais elle ne réagit pas lorsqu'on clique sur sur le BoutonCourant d'indice i.

Sais tu comment faire ?

Jean-Marie · Answer

sur les propriete de ton bouton, dans l'onglet événement, tu met le nom de ta fonction dans l'evenement click()

Polux31 · Answer

Bonjour,

On ne peux pas passer un paramètre dans l'évènement Click().

Il faut faire une procédure à part et appeler cette procédure derrière chaque bouton.

Public Sub AfficheGraph(ByVal id As Variant)
   Worksheets("graphiques de répartition").Activate
   ActiveSheet.ChartObjects("graph_" & id).Select 
End Sub

Et derrière chaque bouton (par exemple le bouton BoutonCourant_1_1):

Private Sub BoutonCourant_1_1_Click()
   Call AfficheGraph("1_1")
End Sub 

;o)

Guil · Answer

Le truc c'est que j'en ai 1000 de boutons.Je vais pas faire celà 1000 fois. 

N'existe t'il pas une solution ?

Guil · Answer

Visiblement, c'est possible, mais il faut créer "un module de classe". 

Est ce que quelqu'un sait comment faire via les modules de classe ?

cousinhub29 · Answer

Bonjour,

Dans l'énoncé, tu dis " i " et " j " de 1 à 10, soit 100 Boutons....

Maintenant, plus de 1000 boutons...

Évidemment, un Module de Classe pourrait gérer cette situation, seulement, ne crois-tu pas que tu pourrais diviser tes "titres" et "sous-titres" autrement?

1000 boutons sur un onglet, c'est "imbuvable"

Je pense que tu devrais tout d'abord réfléchir à la structure de ton fichier, et avec une trentaine de boutons, (1 par centaine, 1 par dizaine, et 1 par unité), on devrait pouvoir le faire....(et tout ceci par Module de Classe, évidemment)

Re-pense ton fichier, et dis quoi....

Et pour répondre à ta dernière question, oui, plusieurs savent les utiliser (les modules de classe), mais au mieux possible, de préférence...

@+

PS, un fichier exemple, que tu pourrais poster via "www.cjoint.fr" accélèrerait sans doute les réponses

Guil · Answer

En effet, dans l'exemple, il n'y a que 100 boutons. Mais dans la réalité, il me faudrait un troisième indice. Ce qui m'en donnerait 1000. Et ce nombre n'est pas compressible (de plus les boutons seront répartis sur plusieurs feuilles). J'ai fait des recherche sur les modules de classe; mais je n'ai pas vu comment on pourrait les appliquer à ce cas là.

Quelqu'un pourrait-il m'aiguiller ?

A+

Zakapuce · Answer

Bonjour, 

Est ce que quelqu'un sait comment faire via les modules de classe ? 

La réponse est oui. 

Seulement voilà, sur CCM il n'y a que des bénévoles qui donnent de leur temps pour aider ou pour conseiller. Ils n'ont pas pour autant du temps à perdre. 

Tu as la réponse et la solution à ta question initiale. Ouvre un nouveau sujet sur l'utilisation des classes.

cousinhub29 · Answer

Bonjour,

Quelqu'un pourrait-il m'aiguiller ? 

Oui.....

Cela répond à ta question?????

J'en doute....

Guil · Answer

Je tiens à te remercier cousinhub29. Ton aide m'est infiniment précieuse. 
Je pense que c'est grâce à des gens comme toi que ce type de forum est si intéréssant. Je pense même que le monde avance grâce à des gens comme toi. Des donneurs de leçon qui parlent pour ne rien dire et qui au final n'apportent rien et font perdre du temps à tout le monde. Des gens sans intérêt.

Bref, si tu n'as pas envie de me répondre, rien ne t'y oblige. 
Pour ma part, j'ai un problème et je demandais de l'aide. Si mon problème ne t'intéresse pas, bien à toi. Mais je te serais reconnaissant d'éviter de spamer cette page par des réflexions dignes d'un enfant de 5 ans.

cousinhub29 · Answer

Bonsoir,

Comme tu parles de Module de Classe, j'ai juste osé te dire que je pouvais t'aider....

Je sais le faire, avec 10, 1000 ou plus, de boutons.....

Mais un enfant de 5 ans ne pourrait te répondre.....

J'adore, cette leçon....

Finalement, on est trop con, d'essayer d'aider....

PS, ma seule question, était de te demander un fichier exemple.....

Mais comme tu "TE"comprends, et qu'à priori, vu le nombre d'intervenants, tu dois être le seul, je pense que tu devrais pouvoir t'en sortir....

PS2, rajoute 41 à mon âge supposé, et ensuite, reste humble, quand tu demandes de l'aide....

Bonne chance

Guil · Answer

Si ce que tu dis est vrai, je te prie de m'excuser. J'ai mal interpréter ton message et comprend tout à fait ta réaction.

Bonne continuation

cousinhub29 · Answer

Re-,

Euh, je ne vois pas où je n'aurai point dit la vérité....

Je ne vais pas entrer dans un dialogue sans intérêt, je voulais juste connaître la structure exacte de ton fichier, parce que 1000 boutons, soit 1000 graphiques, cela me semble un peu énorme.....

Les modules de classes pourraient t'aider, mais ne penses-tu pas qu'une réorganisation de ton fichier serait plus bénéfique?

Cordialement

Boucle sur un événement en VBA

14 réponses

Discussions similaires