Comment trier des dates au format 22/11/2008?

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

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

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.

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

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:

---

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 !

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:

---

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 :king:

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

Code:

---

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

---

à

Code:

---

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

---

;)

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:

---

1 2 3

Dim dater as string dater = textbox1.value activecell.value = dater

---

Voilà la solution:

Code:

---

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

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

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

Code:

---

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

---

mais moi j'trouve que faire simple c'est toujours compliqué...
:marteau: -- :cfou: -- :mur: -- :fessee: -- :koi: