Tri en VBA

Version imprimable

Tri en VBA

Bonjour,
je ne suis pas experte en VBA et je dois trier des colonnes par ordre alphabetique ou par date.
Voici mon code qui ne marche qu'une fois sur 2:
Code:

1 2 3 4 5 6 7 Private Sub CommandButton2_Click() Selection.Sort Key1:=Range("H9"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Qu'est-ce qui ne marche pas?
Merci de m'aider...

29/08/2007, 17h53
ouskel'n'or

Regarde là, je donne une solution qui fonctionne.
Ceci dit, il me semble avoir vu passer une réponse de SikyRoad qui évite le changement et le rétablissement du format de date de la colonne... J'ai bien dit, il me semble.
A+
30/08/2007, 10h27
peaceandloveman01

Salut miss !!!

Et oui je suis inscrit sur ce forum...
Pour ton tri je te conseil pour les dates de changer le type de cellule en passant en standard ce qui te donnera un chiffre a ralonge (pour plus d'info envoie moi un mail). Tu pourra alors les trier facilement. A la fin de ta sub, il ne te reste plus qu a repasser en format date pour ta cellule.
Pour les noms, il faut travailler caractère par caractère...

Bon courage

Lyo
30/08/2007, 10h35
riny8669

ok les dates ca a l'air de marcher avec la solution de ouskel'n'or sauf que ca me deplace mes celulles en haut de la page...

Comment on fait pour travailler "caracterre par caractere"??

merci!!;)
30/08/2007, 10h42
peaceandloveman01

j'y travaille. Je posterai la réponse sur le forum et je te l envoi par mail
30/08/2007, 11h07
ouskel'n'or

Citation:

Envoyé par riny8669

ok les dates ca a l'air de marcher avec la solution de ouskel'n'or sauf que ca me deplace mes celulles en haut de la page...

Comment on fait pour travailler "caracterre par caractere"??

merci!!;)

Qu'entens-tu par "ça me déplace les cellules en haut de la page ? Tu veux dire que ton tableau démarre "ailleurs" que sur la ligne 1 ?
Si c'est ça, et si aucune ligne ni colonne de ta plage de cellule n'est entièrement vide, à la place de "Cells.sort...", tu désignes ta plage en mettant

Code:

Cells(NoLigne, NoCol).currentRegion.sort...

où NoLigne est la première ligne de ta plage et Nocol la première colonne de ta plage.
N'oublie pas que mon code fonctionne avec une ligne d'en-tête (dans l'URL que je t'ai passée tu as l'explication)
Tu dis
A+
30/08/2007, 11h47
ouskel'n'or

Edit
J'ai ajouté ici le code qui prend en compte une plage ne commençant pas sur la première ligne ni sur la première colonne. Tu peux y jeter un oeil ;)

Super! Merci beaucoup, ca marche sur ma petite feuille excel que j'ai utilise pour simplifier les essais, je dois maintenant transferer ce code sur ma feuille excel avec toutes mes donnees...Pourvu que ca marche!!

voici mon code:

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
Private Sub CommandButton2_Click()
 'tri des dates
 
 Range("E18:E31").Select
 
    Selection.NumberFormat = "General"
    DoEvents
    Cells(18, "E").CurrentRegion.Select
       Selection.Sort Key1:=Range("E18"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
    DoEvents
    Columns("E:E").Select
    Selection.NumberFormat = "dd/mm/yyyy"
 
 
End Sub
 
Private Sub CommandButton3_Click()
'tri des pays
 
Cells(18, "E").CurrentRegion.Select
Selection.Sort Key1:=Range("F18"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
End Sub