Salut à tous
J'ai créé une petite barre perso qui s'ouvre avec mon classeur perso.xlsb et qui me met des raccourcis de macro dans l'onglet complément. J'en ai quelques unes de pratiques, j'aimerai bien faire un sujet prochainement pour partager, j'y reviendrais
Voici le code :
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
'Création de la barre d'outils nommée
Set CmdBar = Application.CommandBars _
.Add(Name:="Barre_CP", Position:=msoBarTop, Temporary:=True)
'Bouton numéro 1
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 70 'l'image du bouton
.OnAction = "Macro1" 'la macro exécutée au clic
End With
....
End Sub
J'aimerai savoir s'il est possible d'ajouter un code dans le Set Bouton afin que lorsque je laisse la souris sur l'icone on puisse afficher le nom de la macro, car actuellement sur tous les bouton, le message qui s'affiche est Barre_CP
Merci pour votre aide