Discussion :

[statista]

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

Voici mon code pour le moment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nom.RefersToRange.Address

et paramétrer Address comme tu le souhaites.

Cordialement,

PGZ

[Jean-Philippe André]

salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[statista]

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