Discussion :

[Le Méthanier]

Bonjour à tous,

Je suis un étudiant en IUT et dans le cadre d'un projet nous devions créer un classeur Excel avec des macros.

Le fichier fonctionne super bien sauf que après l'application des macros le clic droit a disparu sur chaque PC ou on l'a appliqué. Pour tout les fichiers que l'on l'ouvre sur Excel, il n'y a plus de clic droit.

Je voudrais savoir s'il y avait une commande simple pour que je puisse retrouver le clic droit sur tout les fichiers Excel.

Merci pour vos réponses.

Cordialement

[Gorfael]

Salut Le Méthanier et le forum
regarde dans tes macros, s'il a une Worksheet_BeforeRightClick dont le cancel est àTrue
A+

[Le Méthanier]

Slt,

J'ai regarder dans tout mes fichiers du dévellopeur et je n'ai pas la trouver la commande que tu as cité.

Et ce que si j'inclu cette commande au fichier dans le sens opposé ca pourrait me faire revenir le clic droit?

Cordialement

[Le Méthanier]

slt,

J'ai trouvé dans ma macro une commande qui parle de click droit que je n'avais pas vu auparavant.

Code :

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

1
2
3
Sub ClickDroitON()
Application.CommandBars("Cell").Enabled = True
End Sub

J'ai inverser la commande, mais aucun changement n'ai apparu mais je ne sais pas pourquoi, auriez vous une idée?

Merci de vos réponse

Cordialement

[casefayere]

Bonsoir,
je ne connais pas cette commande mais n'y aurait'il pas une inversion, je m'explique : n'as-tu pas à la fin de cette macro la commande inverse

Code :

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

Application.CommandBars("Cell").Enabled = false

si c'est le cas, ça doit être celle-ci qu'il faut remettre à true et la première éventuellement à false

Bonne soirée

[Le Méthanier]

Bonjour,

Merci pour ton aide le problème est résolu

Cordialement

[Le Méthanier]

bonjour,

j'ai écris un peu trop vite hier.

Le problème de ma macro est résolu mais le clic droit ne réapparait toujours pas sur les fichiers Excel de base.

Est ce qu'il y aurait une manipulation qui permettrai de remédier à ce problème?

Merci pour vos réponses


cordialement

[sabzzz]

bonjour Le Méthanier,

Code :

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

Application.CommandBars("Cell").Reset

[Le Méthanier]

slt sabzzz,

Je sais pas trop ou placer cette commande dans ma macro et je pense aussi qu'elle a des fautes.

Est ce que ce serait possible de m'indiquer ou il y a des fautes et ou je peux insérer la commande précédente?

Ce n'est pas moi qui ai tapé cette macro je l'ai récupéré d'un autre programme donc je sais pas si elle fonctionne correctement.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
' ******************************************************************
' Masquer/Afficher Eléments d'affichage
' ******************************************************************
    With Application
        .DisplayStatusBar = False               'Masquer/Afficher la Barre d'état
        .DisplayFormulaBar = False              'Masquer/Afficher la Barre de formule
        .ActiveWindow.DisplayHeadings = False
    End With
 
       Dim Mbar As CommandBar                      'Masquer/Afficher les Barres Outils
    For Each Mbar In Application.CommandBars
        'If Mbar.BuiltIn = True Then            'Sauf Barre Perso
            Mbar.Enabled = False
        'End If
   Next
 
Sheets("Page d'acceuil").ScrollArea = "A1:m34"
Sheets("Généralités").ScrollArea = "A1:m34"
Sheets("Ouvrants").ScrollArea = "A1:m34"
Sheets("Composition paroi").ScrollArea = "A1:m34"
Sheets("Equipement").ScrollArea = "A1:m34"
Sheets("Glossaire").ScrollArea = "A1:m34"
Sheets("Résultats").ScrollArea = "A1:m34"
Sheets("Eco-Gîtes").ScrollArea = "A1:m34"
Sheets("Eco-Gîtes 2").ScrollArea = "A1:m34"
Sheets("Maison Passive").ScrollArea = "A1:m34"
Sheets("BBC").ScrollArea = "A1:m34"
Sheets("HPE").ScrollArea = "A1:m34"
Sheets("THPE").ScrollArea = "A1:m34"
Sheets("HPE ENR 2005").ScrollArea = "A1:m34"
Sheets("THPE ENR 2005").ScrollArea = "A1:m34"
 
End Sub
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
' ******************************************************************
' Passage en plein écran - Retour en mode normal
' ******************************************************************
    Application.DisplayFullScreen = False
' ******************************************************************
' Masquer/Afficher Eléments d'affichage
' ******************************************************************
    With Application
        .DisplayStatusBar = True               'Masquer/Afficher la Barre d'état
        .DisplayFormulaBar = True              'Masquer/Afficher la Barre de formule
    End With
    Dim Mbar As CommandBar
    For Each Mbar In Application.CommandBars
        'If Mbar.BuiltIn = True Then
            Mbar.Enabled = True
        'End If
    Next
 
End Sub

Merci beaucoup pour votre aide

Cordialement

[sabzzz]

bonjour Le Méthanier,

Le fichier fonctionne super bien sauf que après l'application des macros le clic droit a disparu sur chaque PC ou on l'a appliqué. Pour tout les fichiers que l'on l'ouvre sur Excel, il n'y a plus de clic droit.

Code :

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

1
2
3
Sub RétablirCommandBarCell()
Application.CommandBars("Cell").Reset
End Sub

[Le Méthanier]

Merci beaucoup pour ton aide, ca faisait une semaine que je cherchais la solution sans y parvenir

Encore Merci, je viens de découvrir ce site et il est super felicitation au webmaster