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