Comment retrouver dans une feuille les adresses correspondant aux cellules nommées ?

sans VBA : Insertion / Nom / Coller / Coller une liste fournit la liste des noms du classeur avec leurs références. Avec une exception majeure : les noms "3D"... Qu'est ce qu'un nom 3D ? C'est un nom (toto) affecté à la cellule A2 par exemple de toutes les feuilles d'un classeur. Son nom sur la feuil1 est feuil1!toto la même cellule A2 sur la feuille 2 s'appelle feuil2!toto ces noms n'apparaissent pas lorsque tu colles la liste comme ci-dessus. Si tu veux récupérer la liste complète des noms d'un classeur, tu peux utiliser cette macro à mettre dans un module standard : elle liste les noms de plage du classeur dans une feuille appelée "Noms de plage" qu'elle crée si elle n'existe pas.

sub NomPlages()
 Dim Feuille As Worksheet
 Dim FeuilleExiste As Boolean
 Dim Nom As Name
 Dim Cellule As Range
 For Each Feuille In ActiveWorkbook.Sheets
  If Feuille.Name = "Noms de plage" Then FeuilleExiste = True
 Next Feuille
 If FeuilleExiste = True Then
  Sheets("Noms de plage").Cells.Delete
  Else
  Set Feuille = ActiveWorkbook.Sheets.Add()
  Feuille.Name = "Noms de plage"
 End If
 Set Feuille = Sheets("Noms de plage")
 With Feuille
  .Range("a1") = "Nom"
  .Range("b1") = "Référence"
  For Each Nom In ActiveWorkbook.Names
   Set Cellule = .Range("a65536").End(xlUp)(2)
   Cellule = Nom.Name
   Cellule(1, 2).Value = "'" & Nom.RefersTo
  Next Nom
 End With
 end sub