Discussion :

[nicolav]

Bonjour,

J'ai une application qui creer dynamiquement des onglets.
Sur chacun de ces onglets j'ai crée un bouton (le même qui appellera la même méthode quand on lui clique dessus)

mon code pour la creation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub CreationBoutonMAJOngletsVersGlobale()
 
Dim Obj As Object
Dim Code As String
 
' creation du bouton
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=400, Width:=200, Height:=35)
    Obj.Name = "boutonMAJOngletsVersGlobale"
    ActiveSheet.OLEObjects(1).Object.Caption = "MAJ Feuille Globale"
 
End Sub

Le bouton s'affiche dans chaque onglet comme il faut.

Ensuite dans ma feuille de code Module1, j'insère la méthode

Code :

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

1
2
3
4
 
Public Sub boutonMAJOngletsVersGlobale_Click()
MsgBox ("Hello")
End Sub

Mais aucune réponse du bouton quand je clique dessus.

Par contre, si une fois que mes onglets ont été généré j'insère cette même méthode dans le code de chacune des feuilles dans la partie Microsoft Excel Objets ça marche mais c'est pas bon pour moi puisque c'est pas dynamique.


Pouvez vous m'aider ?
Merci !

[Fvandermeulen]

Salut,
J'ai pas testé mais essaies ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CreationBoutonMAJOngletsVersGlobale()
 
Dim Obj As Object
Dim Code As String
 
' creation du bouton
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=400, Width:=200, Height:=35)
    Obj.Name = "boutonMAJOngletsVersGlobale"
    ActiveSheet.OLEObjects(1).Object.Caption = "MAJ Feuille Globale"
    Obj.OnAction = "MsgBoxBouton" 'Affecte une macro au bouton
 
End Sub

Et le petit module de MsgBox

Code :

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

1
2
3
Sub MsgBoxBouton()
MsgBox ("Hello")
End Sub

[ouskel'n'or]

En effet, tu crées bien le bouton, tu le nommes bien mais tu ne lui associes pas de macro... Ça, ça ne peut pas fonctionner.
Test ça en plaçant tout le code dans un module standard et lance la macro "Test".

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim TonBouton As Shape
    With Worksheets("feuil1")
        Set TonBouton = .Shapes.AddFormControl(xlButtonControl, 35.25, 7.5, 147, 22.5)
        TonBouton.OnAction = "LaMacroDuBouton_QuandClic"
        TonBouton.TextFrame.Characters.Text = "Je suis un bouton"
    End With
End Sub

Code :

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

1
2
3
Sub LaMacroDuBouton_QuandClic()
    MsgBox ("Je suis la macro lancée par le bouton !")
End Sub

Bonne journée

[nicolav]

Merci. La première méthode en ajoutant juste les OnAction ne marche pas.

Je vais essayer de le faire en insérant le code dans chaque feuille par macro.

[ouskel'n'or]

Merci. La première méthode en ajoutant juste les OnAction ne marche pas.

Je vais essayer de le faire en insérant le code dans chaque feuille par macro.

Tu as raison, quand on propose une solution qui fonctionne il faut toujours en chercher une autre

Ceci dit, un olebouton demande que le code soit dans la feuille de code de la feuille de calculs, non dans un module, et tu trouveras le code pour l'insertion du code par macro ici, dans Contribuez
A toutes fins utiles
Bonne suite dans tes expériences

[nicolav]

aie j'avais pas essayé la tienne de méthode ouskel'n'or
J'avais essayé celle de la première réponse.

La tienne marche bien effectivement
Merci