[XL-2007] Afficher des noms masqués [Résolu]

[patch2007]

Bonjour,

Un client m'envoie un tableau excel.

En fouillant dans le "gestionnaire des noms" : environ 20 noms apparaissent, cependant dans la case (à gauche de la formule) ou nous pouvons sélectionner des noms existants "vide".
Si je saisi un nom existant : cela sélectionne bien ma plage mais le nom n'apparait pas quand même.

J'ai essayé de créer un nom, cela fonctionne et il apparait dans la liste ??

Etrange, comment faire apparaitre ces noms masqués ?

Merci

Pat

[jfontaine]

Bonjour,

Ci dessous copie de la documentation, regardes la propriété Visible, cela répondra à ta question.

Cette méthode définit un nouveau nom. Elle renvoie un objet Name.

expression.Add(Name, RefersTo, Visible, MacroType, ShortcutKey, Category, NameLocal, RefersToLocal, CategoryLocal, RefersToR1C1, RefersToR1C1Local)
expression Obligatoire. Expression qui renvoie un objet Names.

Name Argument de type Variant facultatif. Obligatoire si vous n'avez pas spécifié NameLocal. Texte à utiliser comme nom (dans le langage de la macro). Les noms ne doivent pas contenir d'espace et ne doivent pas ressembler à des références de cellules.

RefersTo Argument de type Variant facultatif. Obligatoire à moins qu'un autre argument RefersTo ne soit spécifié. Décrit ce à quoi se rapporte le nom (dans le langage de la macro, notation style A1). Remarque Rien n'est renvoyé si la référence n'existe pas.

Visible Argument de type Variant facultatif. Affectez-lui la valeur True pour définir le nom normalement. Affectez-lui la valeur False pour définir le nom comme nom masqué (c'est-à-dire qu'il n'apparaît pas dans les boîtes de dialogue Définir un nom, Coller un nom ou Atteindre). Valeur par défaut : True.

Pour avoir la liste des noms d'un classeur

Code :

1
2
3
4
5
Dim Nom As Name
 
For Each Nom In ThisWorkbook.Names
    MsgBox Nom.Name
Next

[patch2007]

Bonjour jfontaine,

Comment faire pour modifier l'attribut visible en macro ?

Merci

Pat

[jfontaine]

En changeant la propriété Visible

Code :

1
2
3
4
5
Dim Nom As Name
 
For Each Nom In ThisWorkbook.Names
     Nom.Visible = True
Next