Récupération de plages nommées

[Magic_Doctor]

Bonjour,

J'ai une feuille avec une grande plage de cellules qui se nomme "Zone".
Dans cette plage "Zone", et uniquement à l'intérieur de celle-ci, il existe d'autres plages de cellules, elles aussi nommée : "SousZone1", "SousZone2", "SousZone3",...
Par quel moyen pourrait-on récupérer la liste de toutes les "SousZones" contenues dans "Zone" ?

Merci d'avance pour tout tuyau.

 

[job75]

Re : Récupération de plages nommées

Bonjour Magic Doctor, le forum,

Pour trier la liste comme tu l'entends, voici une autre solution :

Private Sub ComboBox2_Change()
Dim nom As Name, SousZone As Range, lig&
With [Liste].Resize(, 3) '2 colonnes auxiliaires
  .Value = ""
  If ComboBox2.ListIndex = -1 Then Exit Sub
  For Each nom In ThisWorkbook.Names
    If nom.Name Like "SousZone*" Then
      Set SousZone = Evaluate(nom.Name)
      If SousZone.Parent.Name = ComboBox2 Then
        lig = lig + 1
        .Cells(lig, 1) = nom.Name
        .Cells(lig, 2) = SousZone.Row 'ligne
        .Cells(lig, 3) = SousZone.Column 'colonne
      End If
    End If
  Next
  'tri par ligne puis par colonne
  .Sort .Columns(2), xlAscending, .Columns(3), , xlAscending
  'efface les 2 colonnes auxiliaires
  .Offset(, 1).Resize(, 2).Value = ""
End With
End Sub

J'ai aussi épuré le fichier des noms et cellules inutiles...

Fichier (2).

Edit : ah je m'étais trompé dans l'ordre des arguments de Sort...

A+