Discussion :

[riny8669]

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 :

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

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...

[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+

[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

[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!!

[peaceandloveman01]

j'y travaille. Je posterai la réponse sur le forum et je te l envoi par mail

[ouskel'n'or]

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 :

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

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+

[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

[riny8669]

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 :

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

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