Bonjour ,
Je viens de créer une barre d’outils par le code
Succintement ….
Du code du genre
Tout est Ok ma barre d’outils personnalisée apparaît en haut à droite de l’écran .
Maintenant je voudrais associer 1 bouton à l’événement Graph_select
Et un autre bouton à l’événement Graph_MouseDown .
Tous les évènements ont été au préalable désactiver dans le module thisworkbook avec
Application.EnableEvents = False
NB : voir le fichier joint pour avoir tout le code
Je viens de créer une barre d’outils par le code
Succintement ….
Du code du genre
Code:
Set Cbut = Cbar.Controls.Add(Type:=msoControlButton, before:=1)
With Cbut
.FaceId = 130
.OnAction = "Graph_Select"
.TooltipText = "dessiner une droite"
End With
Tout est Ok ma barre d’outils personnalisée apparaît en haut à droite de l’écran .
Maintenant je voudrais associer 1 bouton à l’événement Graph_select
Et un autre bouton à l’événement Graph_MouseDown .
Tous les évènements ont été au préalable désactiver dans le module thisworkbook avec
Application.EnableEvents = False
NB : voir le fichier joint pour avoir tout le code