XL 2013 Gestionnaire de noms ne s'ouvre pas

[midovic]

Bonjour,
Mon problème est le suivant : Sur un classeur de travail, je n'arrive pas à ouvrir le gestionnaire de noms.
Alors quand j'ouvre un nouveau classeur vide le menu gestionnaire de noms s'ouvre normalement.
Pouvez-vous m'aider svp à ouvrir ce menu dans mon classeur de travail?
Je vous remercie par avance de votre aide.

 

[Franc58]

Salut, tu as essayé le raccourci clavier Ctrl + F3 ?

 

[midovic]

Salut, tu as essayé le raccourci clavier Ctrl + F3 ?

Oui j'ai essayé le raccourci Ctrl+F3 (vu sur internet), ca ne fait rien!

 

[Franc58]

Et quand tu cliques sur l'icône "Gestionnaire de noms" du menu "Formules", pas de réaction ?

 

[midovic]

Et quand tu cliques sur l'icône "Gestionnaire de noms" du menu "Formules", pas de réaction ?

J'ai le sablier qui tourne quelques secondes et c'est tout!

 

[Cousinhub]

Bonsoir,
Effectivement, aussi bizarre qu'étrange!!!
Ton fichier "malade" comporte-t-il des macros?

 

[job75]

Bonsoir midovic, Franc58, Cousinhub,

Voyez si l'exécution de cette macro a un effet :

Sub a()
CommandBars("Filter Names").Reset
End Sub

A+

 

[midovic]

Bonsoir midovic, Franc58, Cousinhub,

Voyez si l'exécution de cette macro a un effet :

Sub a()
CommandBars("Filter Names").Reset
End Sub

A+

Merci je vais essayer et je vous redis.

 

[midovic]

Bonsoir,
Effectivement, aussi bizarre qu'étrange!!!
Ton fichier "malade" comporte-t-il des macros?

Oui j’ai 2 macros dedans

 

[job75]

Bonsoir,

Oui j’ai 2 macros dedans

Bah donnez-nous les codes !

A+

 

[ChTi160]

Bonsoir le Fil
Chez Moi je fais : Ctrl+Fn+F3 sur mon portable !
Jean marie

 

[midovic]

Bonsoir,

Bah donnez-nous les codes !

A+

Bonjour,
Désolé pour ce retard! 🙏
J'ai un bouton de commande avec ce code pour masquer et afficher :

Private Sub CommandButton2_Click()
Dim i&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If CommandButton2.Caption = "Masquer" Then
CommandButton2.Caption = "Afficher"
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).Hidden = Cells(i, 2) = 0
Next i
Else
CommandButton2.Caption = "Masquer"
Rows.Hidden = False
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Et aussi, j'ai une macro enregistrée (ci-joint fichier word), qui me copie et colle des cellules sur plusieurs feuilles.

Encore merci!

 

[midovic]

Bonsoir le Fil
Chez Moi je fais : Ctrl+Fn+F3 sur mon portable !
Jean marie

Bonjour,
Merci pour ton message.
J'ai déjà essayé ce raccourci, ca ne fonctionne pas! le sablier tourne quelques secondes et s'arrête.

 

[job75]

Bonsoir midovic, le forum,

D'accord, les codes du post #12 ne touchent pas les commandes du ruban.

A+

 

[Staple1600]

Bonjour midovic, Franc58, Cousinhub, job75, ChTi160, le forum

Un suggestion en passant

Sub compter_noms()
MsgBox ThisWorkbook.Names.Count
End Sub

Si le nombre qui s'affiche dans le MsgBox est très élevé, peut-être est-ce qui perturbe le gestionnaire de noms

(cf voir ce qui se dit ici, qui reste à confirmer/infirmer)