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

[ouskel'n'or]

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

Code :

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

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+

[titeZ]

ok ok j'ai compris

[ouskel'n'or]

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 :

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

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 :

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

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 :

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

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