Discussion :

[martin.j.25]

(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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Gorfael]

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

[martin.j.25]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

Salut martin et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

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

[martin.j.25]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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