[VBA Excel] Associer N macros à N boutons suite à un événement

Version imprimable

Bonjour à tous,

Je souhaiterais avoir quelques conseils sur un problème :
En réponse à un événement quelconque, par exemple un clic bouton, je veux créér N boutons ("Bouton1" ... "BoutonN") et leur associer N macros ("Bouton1_click" ... "BoutonN_click")

Sur ma feuille excel, existent deux boutons, le premier déclenche la macro Evenement_click et le second Bouton0, est un CommandButton.
L'idée est de recopier ce Bouton0 existant, de changer son nom et de créer sa macro associée dans le code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Sub Evenement_click() Dim WbClasseur As Workbook 'Marqueur d'affichage Dim IntLigneCourante As Integer '-------------------------------------------------- IntLigneCourante = 10 N = 2 Set WbClasseur = Workbooks("Classeur.xls") For i = 1 To N '****** BLOC1 ****** 'Gestion des boutons Worksheets("Sheet1").Shapes("Bouton0").Select Selection.Copy Worksheets("Sheet1").Range("F" & IntLigneCourante).Select Worksheets("Sheet1").Paste Selection.Name = "Bouton" & i Worksheets("Sheet1").Range("F18").Select IntLigneCourante = IntLigneCourante + 1 '****************** '****** BLOC2 ****** 'Gestion des macros associées With WbClasseur.VBProject.VBComponents("Feuil1").CodeModule x = .CountOfLines .InsertLines x + 1, "Sub Bouton" & i & "_Click()" .InsertLines x + 2, " " .InsertLines x + 3, "End Sub" End With '****************** Next i End Sub
Les blocs BLOC1 et BLOC2 fonctionnent parfaitement indépendemment l'un de l'autre, mais dès qu'ils sont activés ensemble, excel plante sans message d'erreur. J'avoue avoir du mal à comprendre la logique.

Par avance, merci de votre aide.

Vorillyan

23/11/2006, 20h24
ouskel'n'or

Tiens, comme je vais me restaurer, regarde déjà là, juste pour l'idée
Une collection de boutons et une recherche de la macro à lancer selon leurs index
http://www.developpez.net/forums/sho...d.php?t=241805
A+
23/11/2006, 20h41
dadavyvy

Et avec :

Code:

.InsertLines x + 1, "Private Sub Bouton" & i & "_Click()" & vbCrlf & " " & vbCrlf & "End Sub"

Au fait, quel type de bouton est-ce? des boutons de la barre formulaire ou de la barre "boite à outils controles" ?
23/11/2006, 20h45
Vorillyan

Bon appétit pour commencer :P

J'ajouterai pour être complet que les macros sont toutes différentes, elles sont paramétrées en fonction de la position du bouton auquel elles sont sont associées.

@++
23/11/2006, 20h47
Vorillyan

Bonsoir dadavyvy,

Ce sont des boutons de de la barre "boite à outils controles".
J'essaye ton code.

Merci
@++
23/11/2006, 20h50
Vorillyan

Bonsoir dadavyvy,

Toujours pareil, plantage sans message d'erreur. J'ai l'impression qu'il y a un soucis avec le .CountOfLines lors du second passage dans la boucle.

@++

bonsoir

à ma connaisance (mais je peux me tromper) il n'est pas possible de créer les procédures en meme temps que la boucle pour créer les boutons.

tu peux tester cette adaptation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Evenement_click()
    Dim WbClasseur As Workbook
    'Marqueur d'affichage
    Dim IntLigneCourante As Integer
    Dim N As Integer, I As Integer, X As Integer
 
    '--------------------------------------------------
    IntLigneCourante = 10
    N = 2
 
    Worksheets("Sheet1").Shapes("Bouton0").Copy
 
    Set WbClasseur = Workbooks("Classeur1 (version 1).xls")
    For I = 1 To N
        '****** BLOC1 ******
        'Gestion des boutons
 
        Worksheets("Sheet1").Range("F" & IntLigneCourante).Select
        Worksheets("Sheet1").Paste
        Selection.Name = "Bouton" & I
        IntLigneCourante = IntLigneCourante + 5
    Next I
 
    For I = 1 To N
        '****** BLOC2 ******
        'Gestion des macros associées
        With WbClasseur.VBProject.VBComponents("Feuil1").CodeModule
            X = .CountOfLines
            .InsertLines X + 1, "Sub Bouton" & I & "_Click()"
            .InsertLines X + 2, " "
            .InsertLines X + 3, "End Sub"
        End With
        '******************
    Next I
 
End Sub

tu peux aussi créer les boutons dynamiquemt à la place du copier/coller (voir les 2 derniers exemples du paragraphe):

http://silkyroad.developpez.com/VBA/...icEditor/#LV-A

bonne soirée
michel

Tu crées trois boutons nommés (par défaut) Bouton 1, Bouton 2, et Bouton 3, sur ta feuille de calculs auxquels tu associes la même macro, ici NomsBoutons. Et à chaque nom, tu associes une macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub NomsBoutons() Select Case Application.Caller Case "Bouton 1" Call macro1 MsgBox Application.Caller Case "Bouton 2" MsgBox Application.Caller Call macro2 Case "Bouton 3" MsgBox Application.Caller Call macro2 Case Else MsgBox Application.Caller End Select End Sub
C'est le plus simple que je connaisse sans avoir à écrire du code en dynamique ;)
mais je n'ai pas tout lu (je regardais OSS117 en même temps :mouarf: ) et je réponds "peut-être" à côté :aie:

23/11/2006, 22h33
Vorillyan

Bravo ...

J'avais vu le topic concernant la création des boutons dynamiquement mais je n'avais pas réussi à l'adapter. Le problème était en fait le même, à savoir que j'essayais de faire tout dans un seule boucle.

En tous les cas merci et félicitations aussi pour les tutoriels que j'ai eu l'occasion de lire. Clairs et précis.

@++
Vorillyan
23/11/2006, 22h37
Vorillyan

Merci ouskel'n'or,

Je ne connais pas le nombre des boutons à créer. Je récupère cette information à partir d'un fichier externe. Cela dit je retiens l'idée excellente d'une macro unique intégrant des choix multiples via le case.

@++
Vorillyan
23/11/2006, 22h41
ouskel'n'or

Bon, j'ai lu (le film est terminé...)
Tu peux associer les deux méthodes, la création des boutons en dynamique et une macro unique pour lancer tes macros pré-écrites.
Si cette fois je réponds à ce que tu veux ;)

Edit
Nos messages se sont croisés. Ok, j'ai enfin compris
A+
23/11/2006, 22h57
Vorillyan

Oui ouskel'n'or,

La solution est élégante et évite de multiplier les macros.
Comme en outre à la fin je dois toute les enlever, cela évite une boucle supplémentaire.

@++
Vor
24/11/2006, 08h46
ouskel'n'or

Réveillé à 5 heures en pensant à ton problème, je n'ai plus pu me rendormir :evil:
Tout ça parce que j'ai déjà été confronté sur le forum à une discussion concernant la création de boutons en dynamique, boutons associés à des procédures tributaires d'une variable.
La solution retenue avait été d'attribuer pour nom, au bouton créé, la valeur de la variable, string ou valeur. Ainsi, au clic sur le bouton, cette valeur était récupérée, ce qui permettait, dans ce cas précis, de n'avoir qu'une macro.
Juste pour que mon insomnie ait des chances d'avoir une utilité :mouarf:
Si je savais, j'irais me recoucher...
A+ :sleep: