Insertion code dans commandButton

Version imprimable

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:

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:

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:

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

27/03/2008, 00h17
pgz

en mode création
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:

1 2 3 Private Sub CommandButton1_Click() End Sub
Qu'il reste alors à compléter.

Bon courage,

pgz

Bonjour tlm,

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

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

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:

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:

1
2
 
With Form.CodeModule

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

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:

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

27/03/2008, 21h46
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
27/03/2008, 21h50
Pierre Fauconnier

Bonsoir

Dans Excel (pas dans VBE), ouvrir le menu Outils/Macro/Sécurité.../Editeurs approuvés, et cocher Faire confiance au projet Visual Basic.

Ok?
27/03/2008, 22h52
ninette24

Merci pierre

Cette fois ci j'ai l'erreur

"L'indice n'appartient pas à la selection" est-ce normal?
27/03/2008, 23h34
Abed_H

non ce n'est pas normal.

Bonsoir ninette
Vous avez fait référence à un membre de collection inexistant.

Bonne soirée :king:
28/03/2008, 00h28
fring

Bonsoir tlm,

Etonnant que tu as encore un message d'erreur, surtout qu'on ne fait pas appel à un bouton existant mais qu'on en crée un nouveau et qu'on le crée dans la feuille active. Je viens encore de tester sur un autre pc et qu'il n'y ai pas de bouton ou 10 boutons sur la feuille, de mon côté cela fonctionne sans problème. Là cela dépasse mes compétences :roll:
28/03/2008, 10h01
Pierre Fauconnier

Ce serait bien de préciser la ligne sur laquelle tu obtiens le message d'erreur.

Salut ,

Alors en fait quand je teste le code suivant sur un nouveau workbook il marche

Mais sur le fichier que j'utilise j'ai systématiquement l'erreur

mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sheets("Paramètres").Activate
Range("B2").Select
 
    Dim DerniereCelluleRemplie
    DerniereCelluleRemplie = Columns("B:B").Find("*", Range("B1"), , , xlByRows, xlPrevious).Row
 
    Range("B" & DerniereCelluleRemplie).Select
 
    Worksheets(CStr(Selection)).Activate
 
'Sheets("list").Activate
Range("A" & i & ":W" & i).Select
Application.CutCopyMode = False
 
Selection.Copy
Sheets.Add.Name = liste.Value & Format(Date, "yyyy")
ActiveSheet.Paste
nom = ActiveSheet.Name
 
Call Module4.bouton

et en fait le code de module4.bouton est le suivant

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
31
32
33
34
 
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

et c'est là que j'ai l'erreur
"l'indice n'appartient pas à selection"

Alors que sur un workbook normal le code marche
Est dû au copier /copier que je fais faire sur la feuille???

28/03/2008, 10h16
ninette24
Non j'ai verifié c'est pas le copier /coller

Même en faisant
Code:

1 2 3 4 5 6 Sheets.Add.Name = liste.Value & Format(Date, "yyyy") nom = ActiveSheet.Name Call Module4.bouton
J'ai la même erreur
Impossible à debbugger en plus............
28/03/2008, 10h17
Pierre Fauconnier

Citation:

C'est là que j'ai l'erreur...

... 8O

Sur quelle ligne?

Es-tu certaine d'avoir un Module4 dans ton classeur?

S'il n'y a qu'une procédure appelée Bouton (ce que je conseille vivement!!), il n'y a pas besoin de préfixer avec le nom du module.
28/03/2008, 10h23
ninette24

Il renvoi systématiquement

"l'indice n'appartient pas a la selection" et n'ya pas de numéro de ligne
Il ya même pas possibilité de debugger

Le programme s'execute j'usqu'a la creation du bouton mais c'est le code à l'interieur du bouton qui ne se crée pas!!!

PS : j'ai bien un module4 et la procedure bouton s'exécute j'usqu'à la création du bouton...
28/03/2008, 10h29
Pierre Fauconnier

C'est le nom de feuille qui pose problème...

Le nom de la feuille en VBA (le codename) ne correspond pas au nom de l'onglet.

Pour corriger, remplace ActiveSheet.Name dans

Code:

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule

par ActiveSheet.CodeName dans

Code:

With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
28/03/2008, 10h33
ninette24

VOilà j'ai detecté un bug
Lorsque je ferme le fichier excel en question et que je l'ouvre
Il m'efface tout le contenu de mon module4
Mon module4 est à présent vide...

C'est la première que je vois ce genre de problème!!!!!!
28/03/2008, 10h41
ninette24

HOllalalalalalalala

Super il fonctionne!!!!!!!!!!

C'est génial....
Mais alors peut-tu m'expliquer la difference entre

.Name et .Codename???
28/03/2008, 10h57
Pierre Fauconnier
.Name est le nom de l'onglet, c'est-à dire le nom que l'utilisateur voit (et peut changer!!!) dans Excel.

Dès lors, tout code qui utilise ce nom est susceptible de poser problème lors de la modification du nom de l'onglet.

.CodeName est le nom VBA de la feuille. C'est le nom que l'on voit dans la propriété (Name) de la feuille de propriété de l'objet VBA. C'est également ce nom que l'on voit apparaître dans l'explorateur de projet. Si tu regardes l'explorateur de projets de VBA, tu vois que les feuilles possèdent un nom qui a la forme
Feuil1(Données).
Feuil1 représente le CodeName de la feuille
Données représente le nom de l'onglet.

Lorsque tu dois manipuler des feuilles via VBA, tu as souvent intérêt à utiliser le CodeName, car l'utilisateur ne sait pas le modifier.

Ce CodeName peut être modifié en modifiant simplement la propriété (Name) dans la feuille de propriétés. La valeur de cette propriété doit commencer par une lettre et ne pas contenir d'espace.

C'est intéressant de la modifier car tu peux ainsi utiliser des noms plus explicites que Feuil1.

Souvent, j'utilise un nom qui commence par sh pour Sheet en anglais, et que je prolonge par un nom "parlant"...
shDonnees, shParametres, shSaisie, ...
Ainsi, si tu as une feuille dont l'onglet porte le nom "Données" et que tu utilises
Code:

1 2 worksheets("données").range("a2")= ...
le code plantera si l'onglet Données a été renommé, par toi ou par l'utilisateur.
Mais si tu as attribué shDonnees comme Codename pour l'onglet Données, tu peux utiliser
Code:

1 2 shDonnees.range("a2") = ...
qui fonctionnera toujours (pour autant que la feuille ne soit pas supprimée!) même si l'utilisateur renomme l'onglet.
28/03/2008, 13h30
ninette24

Merci beaucoup pour tes conseils
@ bientôt