Afficher le nom de la plage

Bonjour,

Fonction affichant les noms de champ d'un classeur. La fonction est mise à jour dynamiquement.

Function ListeNoms()
Application.Volatile
Dim n As Name
Dim a()
ReDim a(1 To Application.Caller.Rows.Count, 1 To 2)
i = 1
For Each n In ActiveWorkbook.Names
a(i, 1) = n.Name
a(i, 2) = n
i = i + 1
Next n
ListeNoms = a
End Function

Sélectionner A2:B10
=listenoms()
Valider avec maj+ctrl+entrée

https://www.cjoint.com/c/CKEqhatXs8o

Jacques Boisgontier

Bonjour à tous

Un autre exemple avec la formule définissant la plage
https://www.cjoint.com/?3KEpM3NtMsp

Cdlmnt

Re,

ou pour ceux que ça peut intéresser ce code liste les plages nommée dans l'exemple ceux de la feuille nommée "Feuil1" et liste colonne A et lien hypertexte vers les plages nommées colonne C

Sub NomsPlages_Sur_Feuilles()
Dim M As Name
Dim PlageNom As Range
Dim i As Byte
Dim NumLigne As Byte
NumLigne = 1 '------------------------------------ =1 équivat ligne 1
On Error Resume Next
For Each M In Worksheets("Feuil1").Parent.Names
Set PlageNom = Nothing
Set PlageNom = M.RefersToRange
If Not PlageNom Is Nothing Then
If Worksheets("Feuil1").Index = PlageNom.Worksheet.Index Then
Cells(NumLigne, 1) = M.Name '----------------1) équivaut colonne A
'---------------------------- crée lien hypertexte vers plages nommées
Worksheets("Feuil1").Hyperlinks.Add Anchor:=Cells(NumLigne, 3), _
Address:="", SubAddress:=M.RefersToRange.Address(external:=True)
NumLigne = NumLigne + 1
End If
End If
Next M
End Sub

Re,

Une centaine, cela fait un peu beaucoup non !
et sur une feuille ou réparti sur le classeur ?

de toute façon le problème ne pourra se traiter que par VBA si tu as quelques notions

Bonsoir,

Oui mais seulement en VBA, et combien y a t il de plage nommée sur la feuille ?