Menu contextuel click droit

Le dimanche 10 Mai 2015 à 10:45

Bonjour à tous

Sous Excel 2010,

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

Merci pour votre aide
Al

Partager ce contenu :

Vos réponses

Trier par : date / pertinence

MichD

Le 10/05/2015 à 12:51 #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
'------------------------------------

-1 Répondre en citant

Le 10/05/2015 à 20:19 #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
'------------------------------------

-1 Répondre en citant

Poster une réponse