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 !