Excel VBA trier selon la date ( sans textbox) Fermé

Question

Bonjour à tous,
J'ai parcouru pas mal de forums qui donnent des réponses qui me conviennent presque mais que je n'arrive pas a adapter.
J ai un tableur excel avec une colonne remplie de dates et j'aimerais simplement faire un tri selon la date.
J'ai lu que la solution uiliserait surement la conversion en mode standard de la colonne.

J'ai trouvé un code qui marche presque :


Dim ColDates As Integer
Dim f1 As Worksheet
Set f1 = Worksheets("sheet")
    ColDates = 40
    '1.Columns(ColDates).NumberFormat = "0"
    f1.Range("A1").CurrentRegion.Sort Key1:=Range("I250"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    '   ', _DataOption1:=xlSortNormal
    '1.Columns(ColDates).NumberFormat = "dd/mm/yyyy"

Seulement il y a deux problemes que je n'arrive pas à regler.
 Le premier c est que pour renseigner sur le contenu de mes colonnes la premiere case est une string donc quand ca trie ca le met en automatique a la fin, ce que je ne veux pas. J'ai essayé de changer ca en nombre pendant la période du tri mais je n ai pas réussi.

deuxieme souci , j ai cru comprendre qu'Excel avait des souci entre dates  jj/mm/aaaa et  mm/jj/aaaa , aussi quand je passe la colonne en format standard j ai certaines cases qui ne changent pas ( que je n arrive pas a formater en Date)


Auriez vous des idées ?

lermite222 · Answer

Bonjour,
Effectivement il n'est pas possible de changer une date entrée en texte par du format date.
Cause, Excel traite les dates par des nombre '1 = 1/1/1900
le 13/11/2008 = 39765
Ce qui revient à dire que dans la cellule il n'y a pas une date mais un nombre qu'excel AFFICHE sous le format désigné.
Mais dans une cellule texte, c'est poas un nombre qui est mais un string.
et il n'y à pas de problème avec les format.
Pour y remédier tu peu faire une boucle sur ta colonne pour tout remettre en date avec..
    Worksheets("Feuil2").Range("A7") = CVDate(Worksheets("Feuil2").Range("A7"))
Adapter les adresses bien sûr.
Quand c'est fait, ton filtre fonctionnera normalement.
A+

michel_m · Answer

Bonjour,

en atttendant notre ami Louis (bonjour, Lhermite c'est l'heure!) ;-)

ta variable A etant un nombre désignant une colonne tu ne peux que difficilement employé l'objet "range"

donc il te faut employer cells(12,A)

si ta variable X désignait une ligne dans la colonne B tu pourrais écrire
range("B:" & X)

michel_m · Answer

CVdate?

Ne serait ce pas plutôt Cdate ?

lermite222 · Answer

Bonjour, bonjour Michel, ça y est, je suis révéillé... :-)
Non, c'est bien CVDate...
Et commencons par le début, changer ta colonne Textre en date...
1°) avec Range tu met d'abord la colonne ET ENSUITE la ligne.. Genre B5
Mais avec Cells c'est l'inverse, Cells(Ligne,Colonne)
donc quand tu met...
Cells(40, A).Value = Cells(12, A).Value 
Les adresses sont pas bonnes.
Exécute d'abord cette petite fonction
Sub ChangerT_D()
Dim Lig As Long, Col As Integer
    Col = 2 ' Pour la colonne B .. à adapter. Note: pour la colonne AN c'est 40
    For Lig = 2 To 250 'adapter les lignes
        Cells(Lig, Col) = CVDate(Cells(Lig, Col))
    Next Lig

End Sub
Tu dit..
Et ont verras pour la suite
EDIT:
Evite d'employer des variables abstraites tel que A, B, C etc, si tu traite des lignes met une varaible qui te fait penser à des lignes, moi j'emploi Lig et Col pour des colonnes.
Esssaye aussi de mettre une ou plusieur majuscule dans le nom de la variable mais quand tu la retranscrit TU NE MET PAS DE majuscule, comme ça tu peu détecter immédiatement une erreur de syntaxe si le mot que tu vient de taper ne se transforme pas tout seul avec une ou des majuscules. (des ptit trucs)

lermite222 · Answer

Je vais quand même répondre à ta 2ém question avant ta réponse,
Key1:=Range("I250"), ça m'étonnerais que ce soit bon, 
Key c'est le "mot" à rechercher, donc si par exemple ce que tu cherche est dans une liste de prénoms tu tape en A1 ...Marcel
et ce devrait-être alors Key=range("A1"), recherchera toute les ligne où le prénom Marcel est écrit.

lermite222 · Answer

Re,
Probablement parce qu'il y a un mélange de format,
essaye en mettant toute la colonne en Texte.. si va pas essaye en Standard..
Tu dit.
A+
EDIT:
Négatif, ça va pas en changeant le format.

lermite222 · Answer

essaye plutôt avec...
Sub ChangerT_D()
Dim Lig As Long, Col As Integer
    Col = 2 ' Pour la colonne B .. à adapter. Note: pour la colonne AN c'est 40
    On Error resume Next
    For Lig = 2 To 250 'adapter les lignes
        Cells(Lig, Col) = CVDate(Cells(Lig, Col))
    Next Lig

End Sub
tu dit.

lermite222 · Answer

Bonjour,
S, je pense que ça vient du formatage,
Tu met d'abord en format standard ou nombre (je sais plus) ce qui, vu qu'excel traitre les dates par des nombres traduit tes dates en nombres et le tri se fait donc sur des nombres.
Ensuite tu remet le format en date
Tu ne le vois pas parce que ça va trop vite.
Mais c'est une bonne idée à retenir pour des tri sur date.
A+
EDIT:
Que veux-tu dire par "ne trie pas dans le bon ordre" si tu veux changer le sens suffit de changer xlAscending par xlDescending

lermite222 · Answer

Pourtant avec l'idée de changer le format ça fonctionne impec...
Sub TrieDate()
Dim Plage As Range
Dim Col As Byte, LigDeb As Long, DerLig As Long
    Sheets("TriDate").Select
    Col = 6 'pour la colonne F
    LigDeb = 5 '1ère ligne de tri
    DerLig = 14
    Set Plage = Range(Cells(LigDeb, Col), Cells(DerLig, Col))
    Plage.Select
    Selection.NumberFormat = "0"
    Selection.Sort Key1:=Range("F5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.NumberFormat = "dd/mm/yyyy"
    Range("F17").Select
End Sub
Résultat...
26/10/2007
10/08/2008
15/10/2008
15/10/2008
15/10/2008
31/10/2008
31/10/2008
31/10/2008
15/11/2008
15/05/2009
J'ai tester avec l'exemple que tu donne..
A+

lermite222 · Answer

Un peu plus automatique...
Sub TrieDate()
Dim Plage As Range
Dim Col As Byte, LigDeb As Long, DerLig As Long
    Sheets("TriDate").Select
    Col = 6 'pour la colonne F
    LigDeb = 5 '1ère ligne de tri
    DerLig = Cells(65536, Col).End(xlUp).Row
    Set Plage = Range(Cells(LigDeb, Col), Cells(DerLig, Col))
    Plage.NumberFormat = "0"
    Plage.Sort Key1:=Cells(LigDeb, Col), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Plage.NumberFormat = "dd/mm/yyyy"
End Sub

lermite222 · Answer

Re,
Même en texte ça devrait changer sauf !! s'il y a des espaces dans les cellules.
Pour tester met dans un colonne vide =NBCAR(..) et contrôle s'il affiche le nombre de caractères que tu vois.
Si plus, tu dit, je te passerai une macro qui rectifie ça

Excel VBA trier selon la date ( sans textbox)

11 réponses

Discussions similaires