modification liaison

DoubleZero

XLDnaute Barbatruc

• 20 Janvier 2017

• #2

Bonjour, mumuriton, le Forum,

Une solution, peut-être, ici.

A bientôt

 

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 20 Janvier 2017

• #3

bonsoir,

Ne fonctionne pas.
Une autre idée.
Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Janvier 2017

• #4

Bonjour à tous,
Salut 00,

Cette liaison doit servir à un Nom Défini.
Supprime le Nom Défini et je pense que tu pourras supprimer la liaison.

Bises ++ à ma très chère G.
A+ à tous

 

Dernière édition: 20 Janvier 2017

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 22 Janvier 2017

• #5

Bonjour JCGL,

Là je suis perdue, je ne sais pas ce que c'est le Nom Défini.
Peux tu m'aider sur la procédure à suivre.
Merci
Murielle

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Janvier 2017

• #6

Bonjour à tous,

Je ne connais pas ta version Excel mais cherche Gestionnaire de Noms



A+ à tous

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Janvier 2017

• #7

Bonjour à tous,

Si par hasard les Noms Définis étaient masqués

VB:

Option Explicit
Sub ChercheNoms()
Dim n As Name
For Each n In ThisWorkbook.Names 'recherche dans le fichier contenant la macro
n.Visible = True 'au cas où le nom est masqué
MsgBox n.Name
Next
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 27 Janvier 2017

• #8

bonjour,
j'ai trouvé mais effectivement les noms sont cachés.
Je ne connais pas le visual basic.
Peux tu m'expliquer la marche à suivre?
Merci
murielle

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 27 Janvier 2017

• #9

Bonjour à toutes et à tous, bises à JCGL ,

mumuriton, le code de JCGL doit être logé dans un module standard :



Bon courage et à bientôt

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 27 Janvier 2017

• #10

bonsoir
pour supprimer les noms cachés

Code:

Sub SupprimerNomsCachés()
        Dim n As Name
        MsgBox "Il y a " & ActiveWorkbook.Names.Count & " noms dans le classeur"
        For Each n In ActiveWorkbook.Names
            If Not n.Visible Then
              Reponse = MsgBox(n.Name & " est un Nom caché. Voulez vous le supprimer?", vbYesNo)
              If Reponse = vbYes Then n.Delete Else MsgBox n.Name & " n'a pas été supprimé"
                    n.Delete
              End If
        Next n
End Sub

a insérer dans un module comme DoubleZéro l'a indiqué et lancer la macro

 

Vote positif 0 Vote négatif