Bonjour à tous,

Voilà je viens encore demander un 'tit coup de main sur une macro.
En fait je souhaiterais insérer le code dans un bouton que j'ai créée dynamiquement

Mais seulement j'ai une erreur à l'éxécution de mon code

J'ai d'abord essayé cette version

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
   'Dim bouton As Object
 
'For Each bouton In ThisWorkbook.VBProject.VBComponents
 
       x = instance.CountOfLines + 1
       Code = "Sub CommandButton1_Click()" & vbCrLf
       Code = Code & "sheets(""Menu"").select" & vbCrLf
           Code = Code & "End Sub" & vbCrLf
        instance.InsertLines x, Code
 
    Next bouton
Puis celle là

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
 
 
   With Form.CodeModule
        x = instance.CountOfLines + 1
        Code = "Sub CommandButton1_Click()" & vbCrLf
       Code = Code & "sheets(""Menu"").select" & vbCrLf
       Code = Code & "End Sub" & vbCrLf
        instance.InsertLines x, Code
   End With

J'ai même essayé pour les deux versions de faire sans mettre instance mais directement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
    x = .CountOfLines + 1
        Code = "Sub CommandButton1_Click()" & vbCrLf
       Code = Code & "sheets(""Menu"").select" & vbCrLf
       Code = Code & "End Sub" & vbCrLf
        .InsertLines x, Code
Acune ne marche....je sais pas vraiment pourquoi.....
Si quelqu'un peut m'aider
Merci d'avance!!