Discussion :

[canard338]

Bonjour,

Après avoir consulté de nombreux posts, j'ai bien compris comment ajouter des boutons perso dans un menu contextuel.
Mon problème est inverse. Je veux invalider des boutons standards.
Exemple : je dois invalider la commande options de collage du menu contextuel de cellule.
Sous 2007, il suffit de fournir une commande du type

Code :

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

1
2
 
Application.CommandBars("Cell").FindControl(ID:=755).Enabled = False

pour invalider le collage spécial.

A priori sous Excel 2010 et suivant, je devrais plutôt faire :

Code :

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

1
2
3
4
 
<customUI....
    <contextMenu idMso="ContextMenuCell">
        <button idMso=...

Mon problème est que je ne connais pas la liste des idMso tant ceux des menus contextuels que ceux des boutons, commandes et autres.
Et je ne sais pas ou les trouver.
Quelqu'un aurait-il une idée ?

Ou peut-être y a t'il une meilleure solution ?

Cdt, NC
Cdt

[unparia]

Bonjour
Pourquoi chercher midi à quatorze heures ?
Tu veux quoi, finalement ? Empêcher le copier/coller dans une cellule ?
Coupe-lui simplement le sifflet, alors.
Ainsi, par exemple :

Code :

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

1
2
3
4
5
6
7
Dim MyData As DataObject
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set MyData = New DataObject
    MyData.SetText ""
    MyData.PutInClipboard
End Sub

sans tripotailler le menu contextuel. Radical !
Et même plus radical que la simple disparition d'un choix dans le menu contextuel (choix qui pourrait être facilement remplacé par la touche CTRL+V)

[canard338]

Ceci n'était qu'un exemple.
Il y a plusieurs commandes que je peux vouloir invalider dans les menus contextuels.

Merci pour la réponse mais ce n'est pas suffisant pour mon problème.

Cela m'énerve de ne pas trouver la documentation sur le sujet.
Probablement que j'ai pas cherché au bon endroit.

Autant pour le ruban le tuto disponible sur ce site expliquait bien comment trouver l'info autant pour les menus contextuels, je sèche.

Cdt, NC

[patricktoulon]

bonsoir
liste des control du menu

&Copier id= 19
C&oller id= 22
Colla&ge spécial... id= 755
Insérer les c&ellules copiées... id= 3185
&Supprimer... id= 292
E&ffacer le contenu id= 3125
Filtr&er id= 31402CommandBarControls
&Trier id= 31435
Insérer un co&mmentaire id= 2031
Effacer le comme&ntaire id= 1592
A&fficher/Masquer les commentaires id= 1593
Fo&rmat de cellule id= 855
&Liste déroulante de choix... id= 1966
&Afficher le champ phonétique id= 1614
Nomme&r une plage... id= 13380
Lien &hypertexte id= 1576
&Modifier le lien hypertexte... id= 1577
&Ouvrir le lien hypertexte... id= 1015
Supp&rimer le lien hypertexte id= 3626
Développer jusqu'au&x détails id= 11299
Actions s&upplémentaires id= 31595
Plein é&cran id= 178

Un exemple pour désactiver les boutons du menu contextuel des cellules

code

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub disable_control_on_menu_cell()
ctrls = Array(755, 19)'ici les id que tu veux desactiver 
    With Application.CommandBars("Cell")
       For i = 0 To UBound(ctrls)
       Set Ctrl = .FindControl(ID:=ctrls(i))
        Ctrl.Enabled = False
        Set Ctrl = Nothing
    Next
    End With
End Sub

ne pas oublier en fermeture du classeur dans l'evenement close du thisworkbook

Code :

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

Application.CommandBars("Cell").reset

[patricktoulon]

bien vu unparia si on veut empêcher de coller tout court

en late binding ca donne ca

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim mydata As Object
    Set mydata = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    mydata.SetText ""
    mydata.PutInClipboard
End Sub

[canard338]

Bonjour,

Je connais cette méthode d'invalidation.
Je ne veux pas interdire le coller.
Ma question est comment à partir d'Excel 2010, je peux invalider la commande "Options de collage" entre autre qui ne fait pas partie de la liste fournie ci-dessus.
Elle n'a pas d'Id car ce n'est pas un bouton. Cette entrée de menu contextuel n'existait pas sous Excel 2007.
Donc à part passer par la customisation comme décrit dans mon 1er post, je ne pense pas pouvoir passer par les commandes vba décrites ci-dessus.

Suis-je donc le 1er à me heurter à ce genre de problématique ?

Cdt, NC