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
Puis celle là
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
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
Acune ne marche....je sais pas vraiment pourquoi.....
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
Si quelqu'un peut m'aider
Merci d'avance!!
Partager