Modifier un menu contextuel

Version imprimable

07/02/2015, 22h35
andropuz

Modifier un menu contextuel

Bonjour,

Je suis sous Excel 2013, après plusieurs recherches sur différents site, je n’arrive pas à trouver la solution que je cherche. :calim2:

Bien que plusieurs sujets équivalents soient traités aucune des macros que j’ai essayées ne fonctionne correctement. :roll:

Je souhaite modifier le menu contextuel sur une page d’un classeur Excel. Ce que j’appelle menu contextuel et donc celui que je veux modifier, c’est le menu qui s’affiche au clic droit lorsque l’on survole une cellule. :zoubi:

Mon 1er objectif est donc dans ce menu de limiter le « Coller » à la seule fonction de « coller la valeur ». :P
Mon fichier comporte énormément de mise en forme et mise en forme conditionnelle c’est pour cela que je veux limiter la seule option de collage à la valeur sur ce menu contextuel. D’autant plus que l’utilisateur final va énormément utiliser la fonction copier-coller. :aie:

Mon 2eme objectif est également la suppression dans ce menu des items suivant : « couper », « insérer », « supprimer », « effacer le contenu », « format cellule », « liste déroulante de choix », « définir un nom » ainsi que la fenêtre de mise en page qui s’affiche en dessous !

Si quelqu’un peut me donner le code pour mon 1er objectif ce serait vraiment cool ;), et si on peut m’amener à mes 2 objectifs, là ce serait merveilleux. :D

Pour info je suis même pas encore un Padawan en VBA. Mes recherches et mes essais ne mon même pas conduit à la compréhension des lignes que j'ai copier !!!! il m'a semblé que l'on pouvait utiliser une macro appeler ribbonX pour faire ce que je cherche mais je n'ai rien obtenu !

Merci de vos reponse. 8-)

1 pièce(s) jointe(s)

Bonjour,

POUR LE MENU CONTEXTUEL
Il faut énumérer toutes les CommandBars et tous ses Controls. On les inscrit dans la feuille active.
Puis on identifie la bonne CommandBar et le Control qu'on veut désactivé/activé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim CB As CommandBar
Dim CT As CommandBarControl
 
'#########################################################
'### Enumère toutes les CommandBars et tous ses Controls
'### et les inscrit dans la feuille active.
'### Il faut identifier quelle est la bonne CommandBar
'### et le Control qu'on veut désactivé/activé
'#########################################################
Sub EnumCommandBarControl()
Dim i&
For Each CB In Application.CommandBars
  i& = i& + 1
  Range("a" & i& & "") = CB.Name
  For Each CT In CB.Controls
    Range("b" & i& & "") = CT.Caption
    Range("c" & i& & "") = CT.ID
    i& = i& + 1
  Next CT
Next CB
End Sub
'#########################################################
 
'/////////////////////////////////////
'//// Concerne le Control "Copier" de la
'//// CommandBar "Cell" du menu contextuel
'//// obtenu avec un clic droit dans une cellule
'/////////////////////////////////////
Sub InterditColler()
Set CB = Application.CommandBars("Cell")
For Each CT In CB.Controls
  If CT.ID = 19 Then CT.Enabled = False
  'un autre
  'etc
Next CT
End Sub
 
Sub PermetColler()
Set CB = Application.CommandBars("Cell")
For Each CT In CB.Controls
  If CT.ID = 19 Then CT.Enabled = True
  'un autre
  'etc
Next CT
End Sub
'//////////////////////////////////////

09/02/2015, 22h39
andropuz

Salut PMO2017,:D

Si j ai bien compris le code que tu m'a donné permet de lister les ID, et il intègre également un test avec la suppression de l'option copier du menu CELL.:roll:

J ai bien les ID qui s'affichent, mais ton test concernant "interditcoller" ne fonctionne pas:?
Je me suis aperçu qu'il fallait peut-être mettre 22 et pas 19 pour l'ID coller. Mais cela ne fonctionne pas non plus:calim2:

Si toutefois j'arrive à faire fonctionner ce code, pour désactiver d'autre ID, il aurait fallu simplement que j' ajoute des lignes comme ceci :

1er partie du code

Code:

If CT.ID = idvoulu then CT.Enabled = FALSE

puis afin de réactiver l'option a la fermeture du document dans la 2eme partie du code

Code:

If CT.ID = idvoulu then CT.Enabled = TRUE

Dois je laisser ce code dans module, ou dois je le placer sur Feuil 1 sachant que je souhaite faire disparaitre ces options seulement sur la feuille 1 8O

Si chez toi ce code fonctionne qu'est-ce que je n'aurais pas activé sur ma version d'Excel 2013 pour qu'il fonctionne sachant qu'Aucune erreur de code ne s'affiche et que mon classeur est enregistré en XSLM !.

Merci beaucoup

1 pièce(s) jointe(s)

Bonjour,

Je mets un nouvel exemple en Excel 2007, je n'ai pas la version 2013.

1) Copiez le code suivant dans la fenêtre de code de la feuille concernée ("Feuil1")

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_Activate()
Call SwitchContextuelCell(False)
End Sub
 
Private Sub Worksheet_Deactivate()
Call SwitchContextuelCell(True)
End Sub

2) Copiez le code suivant dans un module Standard

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Dim CB As CommandBar
Dim CT As CommandBarControl
 
'#########################################################
'### Enumère toutes les CommandBars et tous ses Controls
'### et les inscrit dans la feuille active.
'### Il faut identifier quelle est la bonne CommandBar
'### et le Control qu'on veut désactivé/activé
'#########################################################
Sub EnumCommandBarControl()
Dim i&
For Each CB In Application.CommandBars
  i& = i& + 1
  Range("a" & i& & "") = CB.Name
  For Each CT In CB.Controls
    Range("b" & i& & "") = CT.Caption
    Range("c" & i& & "") = CT.ID
    i& = i& + 1
  Next CT
Next CB
End Sub
'#########################################################
 
'/////////////////////////////////////
'//// Concerne les Controls de la CommandBar
'//// "Cell" du menu contextuel obtenu
'//// avec un clic droit dans une cellule
'/////////////////////////////////////
'Menu contextuel "Cell"
'  Cou&per 21
'  &Copier 19
'  C&oller 22
'  Colla&ge spécial... 755
'  Insérer les c&ellules copiées...  3185
'  &Supprimer... 292
'  E&ffacer le contenu 3125
'  Filtr&er  31402
'  &Trier  31435
'  Insérer un co&mmentaire 2031
'  Effacer le comme&ntaire 1592
'  &Masquer le commentaire 1595
'  Fo&rmat de cellule  855
'  &Liste déroulante de choix... 1966
'  &Afficher le champ phonétique 1614
'  Nomme&r une plage...  13380
'  Lien &hypertexte  1576
'  &Modifier le lien hypertexte... 1577
'  &Ouvrir le lien hypertexte... 1015
'  Supp&rimer le lien hypertexte 3626
'  Développer jusqu 'au&x détails 11299
'  Actions s&upplémentaires  31595
'  Plein é&cran  178
'  &Insérer... 3181
Sub SwitchContextuelCell(bool As Boolean)
'--- On veut agir sur ces contrôles
'  Cou&per 21
'  &Copier 19
'  C&oller 22
'  Colla&ge spécial... 755
'  Insérer les c&ellules copiées...  3185
'  &Supprimer... 292
'  E&ffacer le contenu 3125
'  Fo&rmat de cellule  855
'  &Insérer... 3181
 
Dim LesCibles As Variant
Dim i&
LesCibles = Array(21, 19, 22, 755, 3185, 292, 3125, 855, 3181)
'---
Set CB = Application.CommandBars("Cell")
For Each CT In CB.Controls
  For i& = LBound(LesCibles) To UBound(LesCibles)
    If CT.ID = LesCibles(i&) Then CT.Enabled = bool
  Next i&
Next CT
End Sub
'//////////////////////////////////////

Après avoir énumérer toutes les CommandBars et leurs Controls, il faut aller à la pêche des IDs des Controls qui vont bien.

22/12/2017, 17h19
Tiwouf

masquer afficher dans menu contectuel excel

Bonjour,
Je cherche absolument le code vba pour masquer afficher lors du clic droit (menu contextuel)
merci d'avance

bonjour

bloquer le bouton "coller"
Code:

1 2 3 4 Sub bloque_item_coller() remet_menu_normal CommandBars("cell").Controls(3).Enabled = False End Sub
bloquer le sub menu collage special
Code:

1 2 3 4 Sub bloque_item_collage_special() remet_menu_normal CommandBars("cell").Controls(4).Enabled = False End Sub
bien entendu pour bloquer les deux
Code:

1 2 3 4 Sub bloque_les_deux_bouton_de_collage() remet_menu_normal For i = 3 To 4: CommandBars("cell").Controls(i).Enabled = False: Next End Sub
pour remettre le mebu normal
Code:

1 2 3 Sub remet_menu_normal() CommandBars("cell").Reset End Sub
apres il y a la solution de vider le clipboard dans l'evenement selection_change dans le sheets concerné ou le meme evenement pour tout les sheets dans le thisworkbook
tu trouvera ca dans les contrib avec mon pseudo

22/12/2017, 20h23
Tiwouf

«*Afficher*» dans menu contextuel

Merci Patrick mais en fait je ne souhaite pas rendre inaccessible le copier/ coller.
Mon objectif est, dans un classeur, masquer des colonnes et d’empecher l’affichage au utilisateurs.
Ce qui signifie rendre, dans le menu contextuel (clic droit*) «*afficher*» indisponible.
Merci d’avance
22/12/2017, 22h25
unparia

Bonjour

Citation:

Mon 2eme objectif est également la suppression dans ce menu des items suivant : « couper », « insérer », « supprimer », « effacer le contenu », « format cellule », « liste déroulante de choix », « définir un nom » ainsi que la fenêtre de mise en page qui s’affiche en dessous !

Parce-que tu crois vraiment qu'il te suffira de "tripotailler" le menu contextuel pour y parvenir ?
Tout ce qui peut être fait à l'aide du menu contextuel peut également l'être au clavier (à commencer par la touche Suppr -qui vient à l'esprit du plus ingénu des utilisateurs - pour effacer, par exemple ...)
Soyons sérieux -->> oriente-toi vers la mise en oeuvre de protections (verrouillage et protection) ...
Le reste est pure utopie.
22/12/2017, 23h48
patricktoulon

re
Ah.. d'accords je n'avais pas compris comme tu parler de "coller"

en fait tu ne veux pas que l'on puisse réafficher les colonnes masquées

dans ce cas la c'est le menu "Columns"
Code:

1 2 3 4 5 6 7 Sub meu_columns_masquer_afficher() remet_normal For i = 10 To 11: CommandBars("Column").Controls(i).Enabled = False: Next End Sub Sub remet_normal() CommandBars("Column").Reset End Sub
voila
23/12/2017, 09h24
Tiwouf

Afficher

J’ai mis le code dans «*thisworkbook*»mais rien ne se passe. Je peux toujours reafficher la colonne masquée. Je suis désolé mais je suis novice.
Mon objectif c’est que cette manip soit effective dans une feuille bien précise dès l’ouverture du fichier Excel.
Merci d’avance

re
alors il faut que tu lance a partir du activate du sheets concerné
quand tu active cette feuille le menu est bloqué quand tu selectionne un autre sheets il se débloque

code a mettre dans le module de la feuille concernée

exemple dans le module de la feuille 1
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Activate() remet_normal For i = 10 To 11: CommandBars("Column").Controls(i).Enabled = False: Next End Sub Private Sub Worksheet_Deactivate() CommandBars("Column").Reset End Sub
peut etre aussi faudra il mettre dans le this workbook si c'est la feuille concernée active des le depart
Code:

1 2 3 4 Private Sub Workbook_Open() remet_normal For i = 10 To 11: CommandBars("Column").Controls(i).Enabled = False: Next End Sub

1 pièce(s) jointe(s)

re
@tiwouf
je viends de me rendre compte que tu n'est pas l'auteur du post tu aurais pu ouvrir un post a toi ca aurais eviter les meprises la demande initiale etant differente de la tienne

lire les regles du forum

andropuz mille excuses
pour toi c'est le menu"cell" qu'il faut toucher
ou bien carrément bloquer le menu contextuel et créer ton propre menu
un exemple avec un menu perso ultra simple

dans le sheets concerné tu met
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True' bloque le menu original On Error Resume Next CommandBars("monmenuperso").Delete On Error GoTo 0 Set barre = CommandBars.Add("monmenuperso", msoBarPopup, False, True) Set bout = barre.Controls.Add(msoControlButton) With bout .Caption = "copier uniquement la valeur" .OnAction = "copyvalue" End With Set bout = barre.Controls.Add(msoControlButton) With bout .Caption = "coller uniquement la valeur" .OnAction = "collevalue" End With barre.ShowPopup On Error Resume Next CommandBars("monmenuperso").Delete On Error GoTo 0 End Sub
et dans un module standard tu met
Code:

1 2 3 4 5 6 7 Dim x Sub collevalue() ActiveCell.Value = x End Sub Sub copyvalue() x = ActiveCell.Value End Sub
Pièce jointe 337058