Discussion :

[jolzeviking]

Je désire trier une plage de données comme mais le tri s'éffectue par le jour avant le mois , je cherche une macro capable de faire ce tri sans changer la nature et la mise en page de la feuille. Lèaide office sur l'objet sort est peu claire et il me faut la compatibilité avec excel2000.
Merci les VBAddict.

[J.Michel]

Je ne comprends pas bien.
Excel tri automatiquement par Mois, Jour et année.
Que souhaites tu faire exactement ?

[jolzeviking]

05/11/2007 1,00
07/12/2007 1,00
30/11/2007 2,50 2,00
Si j'utilise la fonction sort (ascending) les Dates se retrouvent triées comme précédemment.

[ilcocodrillo]

Je devine que tu as un problème de format de données... préalablement vérifie que ce sont bien des dates et non du texte en faisant un format de cellule standart sur une de tes cellules contenant une date. tu devrais alors voir un chiffre par exemeple39774 pour la date du 11/22/2008. Si ce n'est pas le cas c'est que ce ne sont pas des dates et donc tu tri du texte...

[ilcocodrillo]

si c'est bien ce que je pense t'es dans la me...


Jusqu'à présent je n'ai pas trouvé d'autre solution que celle ci

Code :

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

Range("E8") = Right(Left((Range("E8")), 5), 2) & "/" & Left(Range("E8"), 2) & "/" & Right((Range("E8")), 2)

tu met ça dans une boucle et tu aura de nouveau des dates qui seront exploitables en tant que telles.

s'il y a plus simple je prends !

[J.Michel]

Si on considère:

Colonne A - Colonne B
05/11/2007 - 1,00
07/12/2007 - 1,00
30/11/2007 - 2,50

La ligne suivante doit fonctionner

Code :

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

1
2
 
Range("A1:B3").Sort key1:=Range("A1"), order1:=xlAscending

Sinon comme le suggère Ilcocodrillo, vérifie le format de tes données

[J.Michel]

Je suis d'accord avec Ilcocodrillo
mais je préfère quand même

Code :

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

Mid(Range("E8"), 4, 2)

à

Code :

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

Right(Left((Range("E8")), 5), 2)

[jolzeviking]

Salut, J'ai enfin trouvé le problème et je pense que cela peut interréser du monde. Les dates étaient saisie par une boite de dialogue avec un spinbutton.
Mes données étants déclarées en string elles se sont affichées sur la feuille sans être validées donc le format de la cellule ne s'est pas appliqué.
Voilà l'erreur:

Code :

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

1
2
3
Dim dater as string
dater = textbox1.value
activecell.value = dater

Voilà la solution:

Code :

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

1
2
3
Dim dater as Date
dater = textbox1.value
activecell.value = dater

Merci pour votre aide elle m'ont bien sortie de la me....
Tschuss les VBAddicts

[J.Michel]

Content que tu ais trouvé une solution.
Si tout est ok pense au bouton

[ilcocodrillo]

Je suis d'accord avec J-M c'est plus simple

Code :

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

Mid(Range("E8"), 4, 2)

mais moi j'trouve que faire simple c'est toujours compliqué...
-- -- -- --