macro dans une macro

Version imprimable

01/06/2010, 13h22
hantran

macro dans une macro

Bonjour,

Ecrire des macros? Je commence à m'y habituer. Mais alors une macro qui crée un sheet avec des boutons de macros dedans?? 8O là j'avoue je n'en sais absolument rien comment faire...

Je sais que je pose beaucoup de questions, et que ça vous fait ch***er, mais c'est simplement par envie d'apprendre :P
01/06/2010, 13h31
mercatog

Le forum est certes utile. attention à la langue.
mais il y a aussi la FAQ et les tutos entre autre
un début de réponse ici http://excel.developpez.com/faq/inde...tCommandButton
Bonne lecture et application.
01/06/2010, 13h39
hantran

Merci, c'est résolu

Bonjour,

Désolé je dois reouvert ce sujet car j'ai une question

Avec cette méthode on peut ajouter dynamiquement une macro dans une feuille via une macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 'Ajout CommandButton1 dans la feuille
    Set Obj = s.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 550 'position horizontale
        .Top = 100 'position verticale
        .Width = 180 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Bouton1"
    End With
 
   'Paramètres pour la création de la macro:
    laMacro = "Sub CommandButton1_Click()" & vbCrLf
    '...code...
    laMacro = laMacro & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With

Dans la partie *Paramètres pour la création de la macro* , ça paraît lisible quand on créer des macros simple genre "Hello World", mais si on doit ajouter un code assez long, ça risque de devenir difficile à lire, car à chaque fois on doit faire une concaténation de la ligne précédente.

serait-il possible de mettre le code dans une procédure, et lors de la création du bouton on ajoute simplement un appel de celle-ci, par exemple :

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
 
Sub ma_procedure()
 
      ...1000 lignes de code...
 
End Sub 
 
Sub ma_macro()
 
...code...
 
'Ajout CommandButton1 dans la feuille
    Set Obj = s.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 550 'position horizontale
        .Top = 100 'position verticale
        .Width = 180 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Bouton1"
    End With
 
   'Paramètres pour la création de la macro:
    laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "ma_procedure" & vbCrLf
    laMacro = laMacro & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With
...code...

J'ai essayé mais ça ne semble pas marcher

08/06/2010, 18h45
mercatog

écris la sub ma_procedure dans un module général

j'ai eu l'erreur "Subcript out of range"

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Set s = Sheets("Price Index")
 
laMacro = "Sub CommandButton1_Click()" & vbCrLf
    laMacro = laMacro & "correct_topline" & vbCrLf
    laMacro = laMacro & "End Sub"
 
    With ThisWorkbook.VBProject.VBComponents(s.Name).CodeModule
        x = .CountOfLines + 1
        .InsertLines x, laMacro
    End With

La macro correct_topline est dans un module standard

Tu fais le pas à pas et tu cherche ton erreur

ici travaille avec le codename
Code:

1 2 3 4 With ThisWorkbook.VBProject.VBComponents(s.CodeName).CodeModule x = .CountOfLines + 1 .InsertLines x, laMacro End With

09/06/2010, 12h06
hantran

Ok bon merci en tout cas