Zone nom

[Hugues]

Bonjour Le forum

Sur plusieurs fichiers j'ai défini des zones de nom
Je souhaiterais pouvoir pour chaque fichier obtenir en édition une liste des noms utilisés ainsi que les zones définies.

Pourriez vous me transmettre le code à écrire en VBA pour obtenir le résultat souhaité ?

Merci par avance,

Cordialement,

Hugues

 

[Misange]

Re : Zone nom

Bonjour

pas besoin d'un code VBA c'est inclus de base :
Je n'ai plus 2003 sous la main mais tu vas le retrouver facilement :
dans insertion/nom tu as une instruction
coller une liste
mets toi dans une zone de ta feuille et sélectionne cette instruction qui t'écrit tous les noms définis et les plages correspondantes

 

[david84]

Re : Zone nom

Bonjour,
l'exemple fourni dans l'aide d'Excel (touche F1) semble répondre à ta demande :

Utilisation de la collection Names
Utilisez la propriété Names pour renvoyer la collection Names. L'exemple suivant montre comment créer une liste de tous les noms dans le classeur actif avec les adresses auxquelles ils font référence.

Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
Next

Utilisez la méthode Add pour créer un nom et l'ajouter à la collection. L'exemple suivant montre comment créer un nom faisant référence aux cellules A1:C20 dans la feuille de calcul intitulée « Sheet1 ».

Names.Add Name:="test", RefersTo:="=sheet1!$a$1:$c$20"

Les résultats sont copiés dans la 1ère feuille du classeur.
A+