Discussion :

[ninette24]

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!!

[pgz]

Bonjour,

Dans la feuille qui contient le bouton, en mode création, click droit sur le bouton et 'visualiser le code'. Cela devrait ouvrir la feuille de code dans une procédure

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

Qu'il reste alors à compléter.

Bon courage,

pgz

[fring]

Bonjour tlm,

Si cela peut t'aider, ci-dessous un bout de code pour ajouter un bouton et lui affecter une procédure

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
Sub ajout_bouton()
Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)
 
    'Left position bouton par rapport au bord gauche de la feuille
    'Top position bouton par rapport au haut de la feuille
    'Width largeur bouton
    'Height hauteur bouton
 
    X = ActiveSheet.OLEObjects.Count 'compter le nombre de boutons existants dans la feuille
 
    'option nommer l'objet
    oOLE.Name = "CommandButton" & X
    'texte sur le bouton
    ActiveSheet.OLEObjects(X).Object.Caption = "BU " & X
    Code = "Sub CommandButton" & X & "_Click()" & vbCrLf
    Code = Code & "Sheets(""feuil2"").select" & vbCrLf
    Code = Code & "End Sub"
 
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        NextLine = .CountOfLines + 1
        .insertlines NextLine, Code
    End With
 
End Sub

[ninette24]

Merci fring!!
j'ai essayé ton code mais en fait j'ai une erreur d'exécution
"Argument introuvable" sur la ligne

set oOLE.......

il ne me créer donc pas le bouton
Voici mon code entier

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 bouton()
 
   Dim Ws As Worksheet
    Dim Obj As OLEObject
    Dim laMacro As String
    Dim x As Integer
 
 
    'Ajout CommandButton dans la feuille
    Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 1800 'position horizontale
        .Top = 60 'position verticale
        .Width = 140 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = &H80000001
        .Object.ForeColor = &H80000018
        .Object.Caption = "Retour au Menu"
    End With
 
 
   With Form.CodeModule
        x = .CountOfLines + 1
        Code = "Sub CommandButton1_Click()" & vbCrLf
        Code = Code & "sheets(""Menu"").select" & vbCrLf
            Code = Code & "End Sub" & vbCrLf
        .InsertLines x, Code
   End With
 
End Sub

c'est à partir de la ligne

Code :

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

1
2
 
With Form.CodeModule

qu'il ne marche plus.....
Le debbugger ne me dit pas grand chose non plus

[fring]

Re,

Bizarre que mon code bug chez toi, bon...j'ai modifié le tien, je l'ai testé et il fonctionne.
J'ai également ajouté une ligne de code pour lui attribué un nom en fonction des autres boutons se trouvant déjà sur la feuille, sinon tu risques de te retrouver avec 2 CommandButton1 et il va y avoir conflit

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
33
Sub bouton()
 
Dim Ws As Worksheet
Dim Obj As OLEObject
Dim laMacro As String
Dim x As Integer
 
x = ActiveSheet.OLEObjects.Count + 1
 
'Ajout CommandButton dans la feuille
Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
 
With Obj
    .Name = "CommandButton" & x
    .Left = 1800 'position horizontale
    .Top = 60 'position verticale
    .Width = 140 'largeur
    .Height = 30 'hauteur
    .Object.BackColor = &H80000001
    .Object.ForeColor = &H80000018
    .Object.Caption = "Retour au Menu"
End With
 
Code = "Sub CommandButton" & x & "_Click()" & vbCrLf
Code = Code & "Sheets(""feuil2"").select" & vbCrLf
Code = Code & "End Sub"
 
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    NextLine = .CountOfLines + 1
    .InsertLines NextLine, Code
End With
 
End Sub

[ninette24]

Re fring,

Voilà j'ai testé le code code modifié et j'ai toujours le même message d'erreur :

"L'accès par programme au projet visual Basic n'est pas fiable"

Pourtant il me créé bien mon bouton mais c'est le code qu'il n'arrive pas à intégrer au bouton.......

J'essai vraiment pas quoi faire