Macro affectée à un bouton

[Djay]

Bonjour à tous! J'ai affecté un macro à un bouton dans excel et ce bouton a pour icone un smiley. Voici mon code:

Public Bouton_Macro
Public Bouton_Macro2

Private Sub Workbook_Open()
Set Bouton_Macro = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlButton, ID:=2950, Before:=11)
Bouton_Macr😵nAction = "CleanTemp"
Set Bouton_Macro2 = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _
msoControlButton, ID:=2950, Before:=12)
Bouton_Macro2.OnAction = "Help"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Bouton_Macro.Delete
Bouton_Macro2.Delete
End Sub

En fait, j'ai déja un bouton affecté à une macro et quand l'autre se rejoute, on s'y perd car ils ont la même icone. Le pb c'est que dans mon code, il y a rien qui les différencie. En attendant votre réponse. Bonne fin journée.
Djay

 

[Dan]

Bonjour,

Il est normal que tu aies le même bouton. Il est définit par ID et si tu regardes ta macro, tu as deux fois le même. ici ID = 2950 qui correspond au smiley.

Remplace cette référence par une autre. Par exemple un de ces numéros : 1000, 351, 352, 273, 272, ...

Dis-moi quel icone tu souhaites sinon tu peux aussi aller sur ce site <http://www.excelabo.net/moteurs/recherche.php> où en tapant "Icones", tu trouveras un fichier de Laurent Mortézai à télécharger.

Bon travail

@+

Dan