Référence de Tri non valide

**IronHeavy** · 29/09/2017, 09h32

Bonjour à vous,

J'ai parcouru plusieurs fils relatifs à la fonction "synthèse + tri" de plusieurs pages pour constituer un code visant à :

- sélectionner 15 pages identifiées de mon fichier
- copier les lignes renseignées de chacune de ces pages
- les réunir dans une page de synthèse
- les classer par ordre décroissant selon un indicateur situé en colonne G

voici où j'en suis:

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
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub CHierarchisation_Click()
 
 With Sheets("PLANACTION")
   .Range("A9:O65536").Delete
   For Each Sh In Sheets
     Select Case Sh.Name
       Case "ADMINISTRATIF", "COLLECTEDECHETS", "DDD", "ESPACESVERTS", "GYPSE", "HAUTEPRESSION", "HOSPITALIER", "HÔTELLERIE", "INDUSTRIE", "INTERHAUTEUR", "LOGISTIQUE", "MECANISE", "NETTOYAGE", "SANITAIRES", "TUNNEL", "VITRERIE"
       For lg = 9 To Sh.Range("A" & Rows.Count).End(xlUp).Row
           LgS = .UsedRange.Rows.Count + 1
           .Cells(LgS, 1) = Sh.Cells(lg, 18)
           .Cells(LgS, 2) = Sh.Cells(lg, 6)
           .Cells(LgS, 3) = Sh.Cells(lg, 5)
           .Cells(LgS, 4) = Sh.Cells(lg, 11)
           .Cells(LgS, 5) = Sh.Cells(lg, 12)
           .Cells(LgS, 6) = Sh.Cells(lg, 14)
           .Cells(LgS, 7) = Sh.Cells(lg, 17)
       Next
 
       Case Else
 
     End Select
   Next
 
.Range("A9:O65536").CurrentRegion.Sort key1:=Range("G9"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
 End With
 
Sheets("PLANACTION").Activate
Unload FIDENTIFICATION
Unload FSECTORISATION
Unload FMAÎTRISE
Unload FPLANACTION
 End Sub

à l'issue:

- le tri se fait partiellement : les valeurs en colonne G ne sont pas forcément reconnues et certaines refusent de se laisser classer

- Erreur d'exécution '1004' : Référence de Tri non valide concernant la ligne

Code :

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