Discussion :

[hantran]

Bonjour,

Ecrire des macros? Je commence à m'y habituer. Mais alors une macro qui crée un sheet avec des boutons de macros dedans?? 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

[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.

[hantran]

Merci, c'est résolu

[hantran]

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 :

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

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 :

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

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

[mercatog]

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

[hantran]

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

Code :

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

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