Discussion :

[Phil.D]

Bonjour à tous,

L'exécution d'un ancien classeur Xls ne m'a pas semblé problématique lors de son déroulement et pourtant ...

Ouvrant par après un de mes classeurs xlsm afin de le modifier, je m'aperçois que certains menus contextuels ne s'affichent plus:
menus de lignes, de colonnes, de cellules, d'onglets (apparaissant habituellement avec un clic droit) restent muets.

Comment restaurer ces menus avec leur fonctionnement habituel au clic droit ?

Peut-être existe-t-il des manipulations ou réglages pour les faire apparaître; mais je ne les ai pas (encore) trouvés.
Cette solution serait privilégiée, mais sinon, je suppose qu'il doit être possible de les réactiver via VBA.

Merci d'avance à tous ceux qui voudront bien m'aider

Ph.D

[deedolith]

Salut,

Recherche les instructions CommandBar dans le code source.

[Phil.D]

Salut,

Recherche les instructions CommandBar dans le code source.

Bonne idée de départ;

Malheureusement, le fichier déclencheur est écrit en VBA sous excel 2003. Le nom des CommandBar n'est plus le même depuis l'apparition du ruban et des menus contextuels. Le problème est bien de connaître ces nouveaux noms et la syntaxe exacte....

Merci pour ton idée, elle va probablement permettre à d'autres de faire avancer la solution.

Ph.D

[Phil.D]

en utilisant l'instruction "Application.CommandBars("Nom de la barre").Enabled = True" j'ai pu rétablir, en utilisant les noms anglais, les menus contextuels de lignes (Row), de colonnes (Column) et de cellules (Cell). Les noms français de ces barres conduisent à chaque essai à une erreur "Argument incorrect"

Malheureusement, je n'arrive pas à rétablir le menu contextuel des onglets...(> Ajouterune feuille, supprimer, renommer, colorier onglet)
ni "Workbook tabs" (Onglets du classeur Excel / CommandBar n° 38), ni "Worksheet Menu Bar" (Barre de menus Feuille de calcul / CommandBar N° 1) , bien qu'elles soient acceptées en tant qu'argument, ne fonctionnent pas

Si quelqu'un a une idée ....


NB n'existe-t-il pas une fonction "Réparer excel"

[patmeziere]

Bonjour
pour te faciliter la tâhe
fait un reset Global de toute tes commandbars

Code :

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

1
2
3
4
5
6
7
8
9
10
sub reszezetz()
 dim cmb as commandbar
 for each cmb in application.commandbars
   cmb.reset
   on error resume next
   cmb.enabled=true
   err.clear
 next
 on error goto 0
end sub

[Phil.D]

Salut Patmeziere,

Désolé pour le délai, mais je tenais à te remercier pour ta suggestion.
Avant de l'appliquer, je dois d'abord supprimer quelques barres outils perso créées sous Xl 2003
et qui sont venus se rajouter à la liste des barres "standard" de XL 2021
5je tiens vraiment à ne plus les activer ...

Merci en tout cas

Ph.D

[Phil.D]

Voilà !! Après avoir retrouvé les barres de commandes "Row" , "Column" et "Cell", J'ai aussi trouvé comment restaurer le menu contextuel des onglets.
D'après mes recherches, le problème semble survenir assez fréquemment et cette disparition est la plupart du temps inexpliquée.

La solution est de taper la commande suivante dans la fenêtre d'exécution de VBE "Application.CommandBars("Ply").Enabled = True".

Magique : la commande validée, le menu réapparaît dans tous les fichiers excel !!!

[patmeziere]

Bonjour

Et cette macro t'aurait tout remit en place d'un seul coup pour toutes tes commandbars

Code :

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

1
2
3
4
5
6
sub Azero()
 Dim cmb 
for each cmb in application.commandbars
    cmb.reset:cmb.enabled=true
  next 
end sub

Bon courage pour la suite