Pb Tri numéros de mois (1-10--11-12-2 -...)

[Fredo]

Salut le Forum.

Voila, je sais pas si mon titre est bien explicite, mais je voudrais trier une grand tableau avec un des critères de tri correspondant à des Mois (qui sont sous la forme : 1-janv , 2-févr, ...).

Le tri s'effectue comme il faut avec le code suivant:

xlShtAn.Range(xlShtAn.Cells(iORowAn - 1, iOColAn), xlShtAn.Cells(iRowRefAn - 1, iOColAn + 89)).Sort _
   key1:=xlShtAn.Range(xlShtAn.Cells(iORowAn - 1, iOColAn).Address), order1:=xlAscending, key2:=xlShtAn.Range(xlShtAn.Cells(iORowAn - 1, iOColAn + 1).Address), order2:=xlAscending, _
   key3:=xlShtAn.Range(xlShtAn.Cells(iORowAn - 1, iOColAn + 2).Address), order3:=xlAscending, header:=xlYes, Orientation:=xlTopToBottom

Où les mois se trouvent dans la colonne correspondant a la 'key2'.

Mais voila, les mois se retrouvent rangés dans l'ordre : 1-janv,10-oct,11-nov,12-déc,2-févr,3-mars,...

Donc ma question est toute simple en fait, quelle option donner au tri pour que les mois soient triés dans l'ordre numériques ascendant 'normal' ??

Merci d'avance pour ce petit coup de pouce

Fredo

 

[pat1545.]

Salut,

à la limite, tu peux ajouter 3 colonnes avec le jour, le mois et l'année venant de ta colonne date et puis trier la dessus ?

Patrick

 

[copayo]

Salut,

je crois que c le meme pb qu'avec les TCD et je crois avoir resolu le truc par

01
02
..
10
11
12

dis moi si ca marche ?

 

[Fredo]

Re le forum, salut Patrick, copayo

Patrick :
Les colonnes en plus ne m'arrange pas ... j'en ai déjà 90...
C'est qd même une idée merci.

Copayo:
Ayé ca a finis de mouliner .. et ça fonctionne.
De plus, j'avais oublié de signaler que la colonne est du texte ( avec un apostrophe devant).

Merci ça fonctionne impécable.

Bonne fin de journée

Fredo

 

[copayo]

u're welcome

c le genre de truc ki m'a rendu fou

 

[chris]

Bonjour
Tes mois sont en texte. Ne peux tu les remplacer par des dates au format 'm-mmmm' ce qui résoudrait ton Pproblème de tri.