Zone nom

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"

Cliquez pour agrandir...