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