Discussion :

[titeZ]

bonjour,

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

Code :

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

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 ?

[jfontaine]

et en ajoutant DataOption1:=xlSortNormal a la fin

Code :

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

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

[ouskel'n'or]

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 :

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

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.

[titeZ]

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

[titeZ]

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

[titeZ]

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

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

[Commodore]

Code :

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

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

[titeZ]

ah bah non!

[Commodore]

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

[titeZ]

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 :

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

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

[Invité]

Bonjour Titez,

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

Code :

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

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 :

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

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