Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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 '------------------------------------
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
'------------------------------------
'------------------------------------------------- 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
Merci
"MichD" a écrit dans le message de 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 '------------------------------------
Merci
"MichD" <michdenis@hotmail.com> a écrit dans le message de
news:mind8k$4fb$1@speranza.aioe.org...
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
'------------------------------------
"MichD" a écrit dans le message de 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 '------------------------------------