VBA - Identifier les plages nommées

Iznogood1 à dit:

Merci Roger,

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

Du coup, tout simplement

Code:

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

Cliquez pour agrandir...