Référence de Tri non valide

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:

---

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:

---

DataOption1:=xlSortNormal

---

Je dois rendre ce document.. hier :mouarf:...

si une bonne âme avait le cœur de m'indiquer mes erreurs!

Merci!

Après utilisation de l'enregistreur de Macros - bien plus futé que moi soit dit en passant - ma fonction de tri fonctionne parfaitement... une fois sur 2!

au premier essai, , nickel, tri en colonne G depuis G9 avec sélection étendue, au second essai, je retrouve les lignes collectées précédemment tout en bas du tableau (ligne 65537) dans l'ordre de la "collecte", non triée!

ma nouvelle macro:

Code:

---

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 36

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) = CInt(Sh.Cells(lg, 11)) .Cells(LgS, 5) = CInt(Sh.Cells(lg, 12)) .Cells(LgS, 6) = CInt(Sh.Cells(lg, 14)) .Cells(LgS, 7) = CInt(Sh.Cells(lg, 17)) Next   Case Else   End Select Next   Rows("9:65536").Select .Sort.SortFields.Clear .Sort.SortFields.Add Key:=Range("G9") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With Worksheets("PLANACTION").Sort .SetRange Range("A9:R65536") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With   End With

---

EDIT: en remplaçant

Code:

---

.Range("A9:O65536").Delete

---

par

Code:

---

.Rows("9:65536". Delete)

---

ça fonctionne systématiquement... ???