Menu contextuel click droit

Le
Al
Bonjour à tous

Sous Excel 2010,

Est il possible de le personnaliser ?
Ex: Ajout de l'icone de TRI

Merci pour votre aide
Al
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26352016
Bonjour,

Comme ceci :

'-------------------------------------------------
Sub Ajoute_Commande_Trier_MenuContextuel_Cellule()
Application.CommandBars("cell").Controls.Add ID:’8
End Sub
'-------------------------------------------------
Sub Supprime_Commande_Trier_MenuContextuel_Cellule()
Application.CommandBars("cell").FindControl(ID:’8).Delete
End Sub
'-------------------------------------------------

Tu peux utiliser ces 2 événements du ThisWorkbook d'un classeur
pour ajouter la commande au menu contextuel à l'ouverture du classeur
e la supprimer à la fermeture du classeur


'------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Supprime_Commande_Trier_MenuContextuel_Cellule
End Sub
'------------------------------------
Private Sub Workbook_Open()
Call Ajoute_Commande_Trier_MenuContextuel_Cellule
End Sub
'------------------------------------
Al
Le #26352116
Merci

"MichD" news:mind8k$4fb$
Bonjour,

Comme ceci :

'-------------------------------------------------
Sub Ajoute_Commande_Trier_MenuContextuel_Cellule()
Application.CommandBars("cell").Controls.Add ID:’8
End Sub
'-------------------------------------------------
Sub Supprime_Commande_Trier_MenuContextuel_Cellule()
Application.CommandBars("cell").FindControl(ID:’8).Delete
End Sub
'-------------------------------------------------

Tu peux utiliser ces 2 événements du ThisWorkbook d'un classeur
pour ajouter la commande au menu contextuel à l'ouverture du classeur
e la supprimer à la fermeture du classeur


'------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Supprime_Commande_Trier_MenuContextuel_Cellule
End Sub
'------------------------------------
Private Sub Workbook_Open()
Call Ajoute_Commande_Trier_MenuContextuel_Cellule
End Sub
'------------------------------------

Publicité
Poster une réponse
Anonyme