Discussion :

[Delivrance]

Bonjour,

après une recherche infructueuse sur la méthode sort, je n'arrive pas a m'en sortir..

Je me suis basé sur le document "Support de cours complet pour le VBA d'Excel" du site, mais adapté a ma version ca ne marche plus.
Voici l'exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim maplage As Range
With ThisWorkbook.Worksheets("Feuil1")
Set maplage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 8).End(xlUp))
End With
 
Set maplage = maplage.Offset(1).Resize(maplage.Rows.Count - 1)
 
maplage.Sort Key1:=maplage.Cells(6), order1:=xlAscending, _
Key2:=maplage.Cells(3), order2:=xlAscending, header:=xlNo, _
Orientation:=xlTopToBottom

Elle marche et fait exactement ce qu'elle doit faire
Mon code avec quelque paramètres changés

Code :

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

1
2
3
4
5
6
7
8
9
Dim maplage As Range 
With ThisWorkbook.Worksheets("Listing")
 Set maplage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 13).End(xlUp))
 End With
 Set maplage = maplage.Offset(2).Resize(maplage.Rows.Count - 2)
 maplage.Select
 maplage.Sort Key1:=maplage.Cells(2), order1:=xlDescending, _
Key2:=maplage.Cells(10), order2:=xlAscending, header:=xlNo, _
Orientation:=xlTopToBottom

J'obtiens une "erreur 1004" J'ai placé un select et fait un pas à pas pour voir ce qui était réellement sélectionné et l'erreur semble en effet provenir de la définition de la zone triée.

Je n'arrive vraiment pas a cerner le problème. Si une âme charitable pouvait me guider.

Merci d'avance

[Godzestla]

Bonsoir,

quelle est ta certitude ou ton explication par rapport à cette ligne ?

Code :

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

1
2
 
Set maplage = maplage.Offset(2).Resize(maplage.Rows.Count - 2)

Pour le reste, difficile de dire sans voir les données.

[Delivrance]

Voici une image des données

Il y a plus de 20000 lignes et ce n'est pas figé.

Pourquoi je pense que ça vient de la, c'est parce que l'erreur se crée sur le sélect (mis la afin de visualiser la zone sélectionnée) Mais je peux me tromper, ca ne fait que deux jours que je m'essaie au VBA

[Godzestla]

Pas de soucis.

As-tu absolument besoin de la ligne 1 avec /Lists ?

Sinon je te propose de l'enlever et de tester avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim maplage As Range 
With ThisWorkbook.Worksheets("Listing")
 Set maplage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 13).End(xlUp))
 End With
 Set maplage = maplage.Offset(1).Resize(maplage.Rows.Count - 1)
 maplage.Select
 maplage.Sort Key1:=maplage.Cells(2), order1:=xlDescending, _
Key2:=maplage.Cells(10), order2:=xlAscending, header:=xlNo, _
Orientation:=xlTopToBottom

[Delivrance]

La ligne 1, non c'est juste du a un import de fichier XML, je l'ai supprimée et ai essayé la solution proposée. Hélas le probleme est toujours présent sur cette ligne

Code :

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

 Set maplage = maplage.Offset(1).Resize(maplage.Rows.Count - 1)

Donc le problème pourrait se situer juste au-dessus au niveau de la déclaration de la zone de tri, mais je ne vois pas trop.
Enfin peut etre qu'il existe une autre définition de Range pour cadrer l'ensemble des donnée.

Edit : Je crois peut-être avoir trouvé le problème :/ la colonne 13 n'a d'élément qu'a partir de la ligne 14. La définition de la plage doit donc être de taille nulle d'où l'erreur

Edit2 : Finallement je ne crois pas que ce soit cela
j'ai essayé ce code de dimensionnement :

Code :

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

 Set maplage = .Range(.Cells(1, 1), .Cells(4, 4))

toujours l'erreur

[JackOuYA]

Bonsoir,

je vois que tu as mis un select dans ton code , rajoute un stop aprés celui-ci et vérifie la plage sélectionné avant le tri :

Code :

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

1
2
3
maplage.Select
stop
maplage.sort

si c'est la bonne plage essai quand le select est affiché et le code bloqué par le stop , d'effectuer toi même le tri par le menu excel.

tu dis quoi..

[Godzestla]

Tu peux mettre en attachement un fichier excel simplifié avec uniquement ceci :
1) ta feuille listing avec les 100 premières lignes
2) ton code vba complet

Alors je vais tester.

Edit------
Salut Jacques.