Trouver la référence de la cellule en fonction de son nom

Bonjour,
J'essaye de créer un tableau de correspondance entre les noms et les cellules

Voici mon code pour le moment:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Memoriser_Nom() Dim ligne As Integer ligne = 2 For Each Nom In ActiveWorkbook.Names ligne = ligne + 1 Cells(ligne, 33).Value = Nom Cells(ligne, 34).Value = Nom.Range Next End Sub

---

"Nom.Range" n'existe pas, ni "Nom.Address", je ne sais pas ce qu'il faut utiliser.
Auriez vous une idée?

Merci d'avance

Bonjour.

Tu peux utiliser

Code:

---

nom.RefersToRange.Address

---

et paramétrer Address comme tu le souhaites.

Cordialement,

PGZ

salut,

l'aide en ligne :f1: semble donner un exemple qui correspondrait exactement a ce que tu recherches :

Code:

---

1 2 3 4 5 6

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

---

Bonjour,

Code:

---

Range("A1").ListNames

---

Mais tu sais que si tu te places sur la cellule A1 et que tu tapes sur F3 et que tu cliques sur le bouton Coller une liste tu obtiens le même résultat.
Bonne journée

Merci pour toutes ces méthodes et pour ces réponses rapides :ccool: