La methode sort de la classe range a échouée

bonjour,

j'ai enregistrer une tite macro mais lorsque je l'utilise elle ne fonctionne pas
c'est juste un pti tri

Code:

---

1 2	Selection.Sort Key1:=Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

---

Il ya une l'erreur et je ne vois pas laquelle
une idée ?

et en ajoutant DataOption1:=xlSortNormal a la fin

Code:

---

1 2 3

Selection.Sort Key1:=Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

---

Sans doute dans ta sélection. Un exemple qui fonctionne pour une plage de cellule entre la ligne 1 et la dernière ligne renseignée

Code:

---

1 2 3

Range("A1", Range("A1").End(xlDown)).Sort Key1:=Range("A2"), _ Order1:=xlAscending, Header:=xlYes, _ MatchCase:=False, Orientation:=xlTopToBottom

---

Header:=xlYes si tu as un en-tête.

en ajoutant data Option 1 non ca ne fait rien :s

finalement un pb
ouskel'nor j'ai essayé mais en faite dans la premiere colonne tt les champs sont rempli mais dans la colonne que je veux trier il y a des champs vide !

et justement jveux mettre les champs vide a la fin

Bonjour,
je fais suite a ma question précedente.

Comment peut on trier dans une plage de cellule une colonne avec des cellule vide ?

Code:

---

Range("<la plage à trier>").Sort

---

8O
ah bah non!

comment ça non ?
ou alors j'ai mal compris ta question?

en faite j'ai une plage de cellule qui varie

et je veux trier la colonne AC
La colonne A n'a aucune cellule vide mais ma colonne AC a des champs vide et moi je veux trier cette colonne AC

Code:

---

1 2	Range("A5", Range("A5").End(xlDown)).Sort Key1:=Range("AC6"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

---

Bonjour Titez,

Comme vous l'a dit Ouskel'n'or :

Code:

---

1 2 3

Range("A1", Range("A1").End(xlDown)).Sort Key1:=Range("A2"), _ Order1:=xlAscending, Header:=xlYes, _ MatchCase:=False, Orientation:=xlTopToBottom

---

Mais comme votre 2ème colonne contient des cellules vides et que vous les voulez en fin de fichier il faut changer :

Code:

---

1 2 3 4 5 6 7

Sort Key1:=Range("A2"), _ Order1:=xlAscending   en Sort Key1:=Range("B1"), _ Order1:=xlDescending

---

Si vous voulez ensuite que les cellules non vides de la colonne "B" soient triées à nouveau dans l'ordre "Ascendant" il faudra relancer le tri en partant de B1 et dernière ligne non vide en "B" et en remettant : Order1:=xlAscending

Ok, il faut que tu détermines ta plage autrement

Code:

---

1 2 3

Range("A5").CurrentRegion.Sort Key1:=Range("G5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

Ce code fonctionne si tu n'as pas de ligne ou colonne entièrement vide dans ta plage et si ta plage commence à la ligne 5
Si ce n'est pas le cas, il faudra une autre syntaxe pour déterminer la plage de données à trier.
A+

ok ok j'ai compris :yaisse2:

Jète un oeil à CurrentRegion, dans l'aide.
Mon code répond à ta demande telle que tu la formules... SI et seulement si ta plage de cellule commence bien ligne 5 (ligne 1 à 4 non renseignées) et SI tu n'as pas de ligne ni de colonne entièrement vide dans la plage à trier.

Si c'est le cas, adapté à tes colonnes, ça donnerait ça

Code:

---

1 2 3

Range("A5").CurrentRegion.Sort Key1:=Range("AC5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

Si ça ne passe pas pour les conditions décrites plus haut, tu dois déterminer ta plage à trier.
Je suppose que les lignes 1 à 4 sont renseignées, que tu as des colonnes ou des lignes vides dans ta plage, auquel cas on recherche la dernière colonne et la dernière ligne renseignées de ta feuille pour fixer cette plage

Code:

---

1 2	DerniereLigne = Range("A65535").End(xlUp).Row DerniereColonne = Range("IV1").End(xlToLeft).Column

---

Ensuite, on détermine la plage
On choisit 5 comme première ligne (ton code) et 1 comme première colonne (ton code)
Ce qui donne

Code:

---

1 2 3 4 5 6 7 8 9

Dim Plage as variant Dim DerniereLigne as long Dim DerniereColonne as byte DerniereLigne = Range("A65536").End(xlUp).Row DerniereColonne = Range("IV1").End(xlToLeft).Column plage = Range(Cells(5, 1), Cells(DerniereLigne, DerniereColonne)).Address(False, False) Range(plage).Sort Key1:=Range("AC5"), _ Order1:=xlAscending, Header:=xlYes, _ MatchCase:=False, Orientation:=xlTopToBottom

---

Attention
Si ta dernière ligne renseignée est la ligne 65536, ce code ne fonctionne pas (!!!) mais bon...
Tu testes et tu nous dis
A+

NB - On peut simplifier ce code mais c'est pour que tu comprennes la démarche ;)