Discussion :

[JYL74]

Bonjour,

Comment peut on supprimer le choix "options de collage" dans le menu contextuel de la cellule ?

La suppression de tous les contrôles de la CommandBars("cell") ne l'enlève pas.

Il s'agit certainement d'un autre composant, mais lequel ?

Cordialement,

[jfontaine]

Bonjour,

Le code ci dessous permet de désactiver le menu contextuel "Collage Spécial"
Penser à le réactiver avant de sortir du classeur, sinon les autres fichiers n'auront plus accès à ce menu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Désactive_Active_Menu_Contextuel()
Dim cmbContext As CommandBar
Dim ctrl As CommandBarControl
 
Set cmbContext = Application.CommandBars("Cell")
 
For Each ctrl In cmbContext.Controls
    'Désactive le collage spécial
    If ctrl.ID = 755 Then ctrl.Enabled = Not ctrl.Enabled
Next ctrl
 
End Sub

[JYL74]

Merci de la réponse,

J'ai oublié de préciser Excel 2010 et cela ne suffit pas, il reste un menu "options de collage" que je n'arrive pas à supprimer.

je crois que çà a un rapport avec les "rubans" mais je n'arrive pas à trouver comment c'est relié à a CommandBars("cell"), si çà l'est.

Cordialement,

[jfontaine]

Ah oui, en effet, ce menu ne semble pas appartenir au menu contextuel