Discussion :

[BEUTCHE]

bonjour à tous,
j'utilise excel 2016 sous windows 10 et sans savoir pourquoi, le menu contextuel dans les en-têtes des lignes et des colonnes ne fonctionne plus. Je m'explique : si je sélectionne une ou plusieurs cellules à l'intérieur du tableau et que je fais un clic droit, j'ai un menu contextuel qui apparait. Normal, par contre, si je fais la même chose sur les barres d'en-têtes, pour une ligne ou une colonne entière (pour rajouter ou supprimer une colonne par exemple) il ne se passe rien. Mème chose avec les onglets (feuil1 ; feuil2 ...), le clic droit est sans effet. Je suis obligé de passer par la barre d'outils principale, ce qui n'est pas pratique. Je pense que j'ai dû faire une mauvaise manip mais je n'arrive pas à trouver d’où ça vient. Si quelqu'un a une idée, merci pour votre aide ...

[riton00]

Bonsoir,

Place cette macro dans la feuil1 de ton fichier et exécute là.... normalement ton menu contextuel devrait de nouveau fonctionner

Code :

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

1
2
3
4
5
6
Sub restoration()
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

Slts

[BEUTCHE]

Bonjour Riton,
Effectivement ça fonctionne. Je ne comprends pas comment j'avais pu perdre cette fonction. En tous cas merci beaucoup pour ta réponse.

[riton00]

Bonjour,

En général cela provient d'un fichier que vous avez certainement ouvert avec des macros pourris ou pas très clair, puisque normalement un menu contextuel ne disparaît pas en claquant des doigts.

Slts

[BEUTCHE]

Ok et merci encore.

[fif357-]

Bonjour,

Je me permets de rouvrir ce sujet car je n'arrive pas à trouver la solution à ce problème.

J'ai comme formule (il s'agit d'un outil qui passe en plein écran et annule tout avant sa sortie) :

Code :

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

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
For Each o In Application.CommandBars
o.Enabled = True
Next
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveSheet.DisplayAutomaticPageBreaks = True
    Application.DisplayFormulaBar = True
    Application.CommandBars("Cell").Enabled = True
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub
 
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
For Each o In Application.CommandBars
o.Enabled = False
With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    ActiveSheet.DisplayAutomaticPageBreaks = False
    Application.DisplayFormulaBar = False
 
Next
Sheets("Param").Select
 
End Sub

Je ne comprends pourquoi, je perds de temps en temps la possibilité d'avoir un clic droit sur des nouveaux classeurs.
C'est indispensable que je comprenne d'où vient le problème car plusieurs personnes vont s'en servir;

Merci à vous;