Récupération de plages nommées

Papou-net

XLDnaute Barbatruc

• 8 Octobre 2011

• #2

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

Bonjour Magic_Doctor,

Voici une copie de ton fichier modifié.

Un click sur le bouton en feuille 1 te donnera les noms des sous-plages.

Je n'ai pas trouvé le moyen de déterminer ces noms en fonction d'une plage, ni même d'une seule feuille : cette commande agit par défaut sur tous les noms contenus dans le classeur.

Espérant quand même avoir aidé.

Cordialement.

 

Pièces jointes

• Copie de SousZones.xls

  40.5 KB · Affichages: 52

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Octobre 2011

• #3

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

Buenas dias Magic 🙂,

Code:

Sub test()
Dim Zones As Names, I As Byte
Set Zones = ActiveWorkbook.Names
For I = 1 To Zones.Count
If Zones(I).Name <> "Zone" Then
If Not Intersect(Range("Zone"), Range(Zones(I).Name)) Is Nothing Then
MsgBox Zones(I).Name
End If
End If
Next I
End Sub

por ejemplo 😛
buen fin de semana 😎
Ajout : Bonjour Papou-net 🙂

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2011

• #4

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

Bonjour Papou-net, buenos días JNP,

Vos solutions marchent très bien.
J'aurais un faible pour celle de JNP.
Quoi qu'il en soit, n'utilisant pas de MsgBox, comment s'y prendrait-on pour que toutes ces "SousZones" apparaissent sur une colonne quelque part sur la feuille (en dehors de "Zone" bien entendu) ?
Merci d'avance pour le tuyau.

Y a tí también JNP buen fin de semana. Acá en Montevideo, como casi siempre, tiempo espantoso.

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 8 Octobre 2011

• #5

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

Bonjour, salut Papou-net et JNP,

Le menu Insertion - Nom - Coller... ne répond-il pas à la question ?

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2011

• #6

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

En fait, c'était simple.
Routine de JNP modifiée :

Sub test()
'Répertorie toutes les plages nommées contenues dans la plage "Zone"
'JNP

Dim zones As Names, i As Byte

Set zones = ActiveWorkbook.Names

For i = 1 To zones.Count
If zones(i).Name <> "Zone" Then
If Not Intersect(Range("Zone"), Range(zones(i).Name)) Is Nothing Then
[ListeSousZones].Offset(i - 1, 0) = zones(i).Name
End If
End If
Next i

End Sub

Cliquez pour agrandir...

Où "ListeSousZones" est le nom de l'en-tête de la colonne où sont répertoriées les différentes "SousZones".

Je me rends compte qu'avec la solution de Papou-net, certes plus concise, tout ce qui est nommé (cellules individuelles ou plages), en dehors de "Zone" est répertorié.

 

Pièces jointes

• SousZones.xls

  40 KB · Affichages: 47
• SousZones.xls

  40 KB · Affichages: 50
• SousZones.xls

  40 KB · Affichages: 48

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2011

• #7

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

Bonsoir,

Je reviens sur le sujet car je ne parviens pas à adapter la macro de JNP pour répertorier des "SousZones" qui se trouvent dans différentes feuilles. Chaque feuille a sa propre "Zone" (feuille1 --> "Zone1" / feuille2 --> "Zone2"....). Dans chaque zone il y a plusieurs "SousZones".
Cependant le lancement du "répertoriage" se fait à partir d'une feuille indépendante où se trouve aussi la colonne qui recueille les "SousZones" que l'on recherche.

 

Pièces jointes

• SousZones2.xls

  66 KB · Affichages: 58

Dernière édition: 8 Octobre 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Octobre 2011

• #8

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

Re 🙂,
Ici aussi, il fait moche 😛...
Pas évident de suivre ton code (c'est pour cela que je n'utilise Evaluate que dans certains cas de figure 🙄)...
Quelque chose du style

Code:

    If zones(i).Name <> zone.Name.Name And zones(i).Parent.Name = zone.Parent.Name Then

devrait éviter de comparer 2 zones sur des feuilles différentes 😉...
Bonne soirée 😎

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2011

• #9

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

Bonsoir,

J'ai un peu galéré mais, grâce à une macro trouvée sur le net, j'ai pu régler le problème.
FAQ MS-Excel

 

Pièces jointes

• SousZones3.xls

  75.5 KB · Affichages: 49

Dernière édition: 9 Octobre 2011

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 12 Octobre 2011

• #10

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

Bonjour,

Je reviens sur ce fil car la solution peut être perfectible, à savoir que lors du listage des "SousZones" avec cette méthode, celles-ci, dans la liste, ne se succèdent pas forcément selon un ordre cohérent. En effet, "idéalement" je voudrais que cette classification se fasse logiquement, c'est-à-dire de gauche à droite et de haut en bas de la feuille.
Serait-ce possible ? Sûrement j'imagine, mais comment ?

Le meilleur exemple se trouvant dans la feuille intitulée "Divers" (avec 5 "SousZones").

Un grand merci pour toute intervention.

 

Pièces jointes

• SousZones4.xls

  75 KB · Affichages: 56
• SousZones4.xls

  75 KB · Affichages: 63
• SousZones4.xls

  75 KB · Affichages: 60

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Octobre 2011

• #11

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

Bonjour le forum,

Magic_Doctor à dit:

Un grand merci pour toute intervention.

Cliquez pour agrandir...

Ah bon ? Sur d'autres fils le merci est rare.

Fichier joint.

A+

 

Pièces jointes

• SousZones4(1).xls

  63 KB · Affichages: 55

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 12 Octobre 2011

• #12

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

bonjour à tous

Je l'ai fait
alors je le livre
ensuite je regarde le travail de mon ami job 🙂

Edit: vu mais apparement nous n'avons compris la même chose !!

 

Pièces jointes

• SousZones4.xls

  63 KB · Affichages: 50
• SousZones4.xls

  63 KB · Affichages: 55
• SousZones4.xls

  63 KB · Affichages: 54

Dernière édition: 12 Octobre 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Octobre 2011

• #13

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

Salut pierrejean 🙂

En effet ! j'ai tout simplement zappé :

c'est-à-dire de gauche à droite et de haut en bas de la feuille

Cliquez pour agrandir...

Ma classification est d'une autre logique...

A+

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 12 Octobre 2011

• #14

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

Bonjour


En utilisant la méthode préconisée par hoerwind dans le message #5
ma proposition pour lister les noms

Code:

Sub Macro1()
Dim tableau, i
    Range("IU1").ListNames
    tableau = [IU1].CurrentRegion.Value
    [IU1].CurrentRegion.Clear
    For i = 1 To UBound(tableau)
    MsgBox tableau(i, 1) & ":" & tableau(i, 2)
    Next i
End Sub

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 12 Octobre 2011

• #15

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

Bonjour à tous,

job, si dans un précédent fil je ne t'ai pas encore remercié pour ton aide précieuse (et le mot n'est pas exagéré !), c'est qu'avant d'y revenir je tenais d'abord à résoudre ce problème, qu'il m'aurait été tout simplement impossible de le faire par moi-même.
En tout cas merci à tous. La solution de pierrejean fait parfaitement l'affaire ; celle de job peut elle aussi être intéressante dans une autre situation. En conséquence, 2 solutions à conserver si le besoin se présente, car pas évidentes du tout !

Bonne journée à tous

 

Vote positif 0 Vote négatif