[VBA-E] Bug macro bouton commande
Bonsoir,
Je fais appel à votre aide car je suis bloqué depuis assez longtemps sans trouver la solution nulle part...
J'ai une macro qui ajoute une nouvelle feuille, ainsi qu'un bouton de commande et le code associé en automatique.
Le problème est que la macro ajoute une nouvelle feuille appelée "Feuil3", mais le code associé au bouton se mets dans "Feuil1" au lieu de Feuil3.
Si je relance la macro, la feuille ajoutée est Feuil4, et le code du bouton se met dans Feuil2 et ainsi de suite
Voici le code que j'ai mis:
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
|
Sub allergique()
'
' allergique Macro
' Macro enregistrée le 19/07/2006 par Allergique
'
' Touche de raccourci du clavier: Ctrl+e
Dim FeuilSource As Worksheet, FeuilDest As Worksheet
Set FeuilDest = Sheets.Add 'Ajoute nouvelle feuille
(.....)
'Ajoute un bouton de Commande
Set NouveauBouton = FeuilDest.OLEObjects.Add _
("Forms.CommandButton.1")
With NouveauBouton
.Left = 200
.Top = 13
.Width = 70
.Height = 30
.Object.Caption = "Infos Moyens"
End With
'ajoutek le code se rapportant au bouton...
Code = "Sub CommandButton1_Click()" & vbCrLf
Code = Code & " Range(""CA8"").select" & vbCrLf
Code = Code & "End Sub"
'Ecriture du code dans le module de la feuille
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With |
Je vous joins le lien vers mon tableau:
http://allergique5.site.voila.fr/macro.zip
Merci d'avance
Bonne soirée
