VBA - Identifier les plages nommées

[Iznogood1]

Bonjour,

Soit une feuille avec des pages nommées.
Ex :
A1:A2 => "Plage1"
A1:B3 => "Plage2"
A1:C6 => "Plage3"

Je cherche un bout de code qui retournerait la liste des plages nommées à (strictement) l'intérieur d'une sélection.

Ex:
Je sélectionne A1:C4, j'obtiens Plage1 et Plage2

Voir fichier joint si je ne suis pas clair.

Merci

 

[ROGER2327]

Bonsoir Iznogood1
http://excel-downloads.com/members/iznogood1.198320/

Un essai...
​

Bonne nuit.


ℝOGER2327
#8307

Jeudi 5 Tatane 143 (Saint Arsouille, patricien - fête Suprême Quarte)
30 Messidor An CCXXIV, 9,4542h - chalémie
2016-W29-1T22:41:24Z

 

[Iznogood1]

Merci Roger,

tu m'as mis sur la piste avec .parent.

Du coup, tout simplement

Sub ListPlages()
Dim n As Name
Dim ad As String
  On Error Resume Next
  For Each n In ThisWorkbook.Names
  Err.Clear
  ad = Intersect(n.RefersToRange, Selection).Address
  If Err.Number = 0 And ad = n.RefersToRange.Address Then
  MsgBox n.Name & "->" & n.RefersToRange.Address
  End If
  Next n
End Sub

 

[ROGER2327]

Bonsoir Iznogood1.

Merci Roger,

tu m'as mis sur la piste avec .parent.

Du coup, tout simplement

Sub ListPlages()
Dim n As Name
Dim ad As String
  On Error Resume Next
  For Each n In ThisWorkbook.Names
  Err.Clear
  ad = Intersect(n.RefersToRange, Selection).Address
  If Err.Number = 0 And ad = n.RefersToRange.Address Then
  MsgBox n.Name & "->" & n.RefersToRange.Address
  End If
  Next n
End Sub

Bon sang bien sûr ! Ça marche... Des fois...​

Bonne nuit.


ℝOGER2327
#8309

Vendredi 6 Tatane 143 (Saints Robot et Cornard, citoyens - fête Suprême Quarte)
1[SUP]er[/SUP] Thermidor An CCXXIV, 9,1238h - épeautre
2016-W29-2T21:53:50Z