Trier les Range de la collection "Names"

(clavier QWERTY)

Bonjour,

J'ai donne un nom a plusieurs Range (meme nombre de colonnes mais different nombre de lignes) que j'aimerai a present trier sur le meme argument. Comme je suis debutant voici le code que j'ai pour l'instant mais rien ne se passe:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Application.ScreenUpdating = False   ssort = Range("F1")   Dim xName As Name   For Each xName In ActiveWorkbook.Names   If xName.RefersToRange.EntireRow.Hidden = True Then xName.RefersToRange.EntireRow.Hidden = False xName.RefersToRange.Sort Key1:=Range(ssort), Order1:=Cells(3, 7).Value, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal xName.RefersToRange.EntireRow.Hidden = True Else xName.RefersToRange.Sort Key1:=Range(ssort), Order1:=Cells(3, 7).Value, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If   Next   Application.ScreenUpdating = True

---

Je sais pas comment faire pour que xName soit interprete comme un Range; ex. : Range("Perso1"), Range("Perso2")...=> Range("xName").

Et je sais pas non plus si ce que j'essai de faire est tres clair :-P

Merci.

Salut martin et le forum
Pas tout compris 8O
Range("Perso1") fait référence à la plage de cellules nommée "Perso1"
A+

Salut Gorfael,

Désolé j'étais au boulo et trés pressé.

Contexte: J'ai dans ma colonne A les noms de mes produits regroupés par type de produit et physiquement séparer par des interlignes que je désire conserver. Dans les colonnes B,C et D j'ai respectivement mon volume de vente, le prix des produits et le chiffre d'affaire.

But: J'aimerai pourvoir effectuer un tri sur chaque groupe de produit, ascendant ou descendant, en fonction des colonnes B, C ou D. Ceci sans mélanger les groupes de produit séparés par des interlignes.

Stratégie: J'ai nomé chaque zone; ex. la zone du premier produit du premier groupe, au dernier chiffre d'affaire du premier groupe s'appel "Groupe1". Comme en réalité j'ai 60 groupes, j'aimerai une macro qui réalise un tri sur tous les zones nomées, faisant donc parti de la collection Names de mon workbook.

Jusqu'à présent j'avais ceci, "ssort" est la variable égale à la colume B, C ou D. L'ordre de tri est désigner par Cells(3,7) une variable dans la page active. Les histoires de Hidden T_F c'est pour le confort visuel de l'utilisateur final:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

ssort = Range("F1")   If Range("Groupe1").EntireRow.Hidden = True Then Range("Groupe1").EntireRow.Hidden = False Range("Groupe1").Sort Key1:=Range(ssort), Order1:=Cells(3, 7).Value, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("Groupe1").EntireRow.Hidden = True Else Range("Groupe1").Sort Key1:=Range(ssort), Order1:=Cells(3, 7).Value, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If

---

J'ai se bloque de code pour les 60 groupes de produits, ca marche mais c'est pas long a modifier quand le format change un peu :-S Voilà donc pourquoi j'ai besoin d'une macro qui fasse ce tri avec toutes les zones nomées. Je voulais utiliser For Each Next (cf. premier post) mais je suis qu'un débutant et j'obtiens rien de probant.

En espérant que c'est plus clair :-D Merci

Salut martin et le forum

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

dim X as integer ssort = Range("F1") application.screenupdating=false for X = 1 to 60 If Range("Groupe" & x).EntireRow.Hidden = True Then Range("Groupe" & x).EntireRow.Hidden = False Range("Groupe" & x).Sort Key1:=Range(ssort), Order1:=Cells(3, 7).Value, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("Groupe" & x).EntireRow.Hidden = True Else Range("Groupe" & x).Sort Key1:=Range(ssort), Order1:=Cells(3, 7).Value, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If next X application.screenupdating=true

---

Si j'ai compris le problème et que les noms soient de Groupe1 à Groupe60
Sinon tu peux utiliser ta formulation initiale (j'ai raccourci le code pour donner un exemple, juste en sélectionnant zone apès zone).

Code:

---

1 2 3 4 5 6

Sub test() Dim xName As Name For Each xName In ActiveWorkbook.Names Range(xName).Select Next xName End Sub

---

Mais dans ce cas, il faut prévoir un test qui permet d'appliquer le tri qu'aux noms commençant par groupe
if xname like 'groupe*" then ou
if left(ucase(xname),6) = "GROUPE" then
A+

ou
if instr(xname,"groupe") = 1 then
:mouarf:

Merci a tous.

Le cas est resolu, mon code original (voir ci-dessous) aurait du fonctionne mais j'avais une zone nomee a travers plusieurs groupe sortie de nulpart... Alors forcement ca faisait tout bugger :-D

A bientot pour de plus amples aventures

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim xName As Name ssort = Range("E2").Value   Application.ScreenUpdating = False   For Each xName In ThisWorkbook.Names   If Range(xName).EntireRow.Hidden = True Then Range(xName).EntireRow.Hidden = False Range(xName).Sort Key1:=Range(ssort), Order1:=Range("E6").Value, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range(xName).EntireRow.Hidden = True Else Range(xName).Sort Key1:=Range(ssort), Order1:=Range("E6").Value, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If   Next xName   Application.ScreenUpdating = True

---