Discussion :

[viscere]

Bonjour,

j'ai un problème pour trier des lignes en fonction de la date. Quand je rempli mes cellules je fais :

Code :

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

1
2
 
CelluleTemp.Offset(i, 5) = Format(Cellule.Offset(i, 10), "dd/MM/yyyy")

Le tri me donne des résultats incohérent. En fait en testant avec la fonction Month(CDate), je me suis rendu compte que quand ma date allait de 01/XX/XXXX à 12/XX/XXXX il me considérait les jours comme des mois:

01/11/2006 -> 1
12/05/2006 -> 12

et dès que ca dépasse 12 (décembre..) il prend le bon mois :

28/11/2007 -> 11
15/06/2007 -> 6

Comment faut-il faire pour fixer cela?

Merci,


Laurent

[mordrhim]

essaye de faire comme ca :

Code :

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

1
2
CelluleTemp.Offset(i, 5) = int(Cellule.Offset(i, 10)) 
CelluleTemp.Offset(i, 5).NumberFormat = "DD/MM/YYY"

et tiens nous au courant

[viscere]

essaye de faire comme ca :

Code :

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

1
2
CelluleTemp.Offset(i, 5) = int(Cellule.Offset(i, 10)) 
CelluleTemp.Offset(i, 5).NumberFormat = "DD/MM/YYY"

et tiens nous au courant

Incompatibilité de type pour la fonction int.

je comprend pas ta réponse random?

[viscere]

ah je viens de comprendre. mais je fais comment avec mon string "20/11/2006", il faut que j'isole les composant de ma date?

[viscere]

bon ben j'ai découpé ma date. Cela donne une ligne du style :

Code :

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

1
2
 
CelluleTemp.Offset(i, 5) = DateSerial(CInt(Right(Cellule.Offset(i, 10), 4)), CInt(Mid(Cellule.Offset(i, 10), 4, 2)), CInt(Left(Cellule.Offset(i, 10), 2))) ' date d'entrée

Par contre dans ce cas la il faut à tout prix que la date soit renseigné de la forme dd/mm/yyyy sinon mes fonctions left mid et Right ne renverront pas le bon chiffre.. Mais dans mon cas je pense que c'est bon.

En tout cas ca marche. Merci beaucoup à vous!

[AlainTech]

Résolu?

Oublié le petit clic?

[bibi5883]

J'ai déjà eu le même problème, je ne l'ai jamais résolu, mais je suis persuadé que cela vient du fait que VBA est en anglais et Excel en Francais. Il faudrait peut être essayé avec une version anglaise de microsoft Office.

Désolé de pas poucvoir en faire plus

[random]

Code :

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

1
2
 
dateserial( month:=12,year:=2006,day:=11)

[mordrhim]

han :
merci random, la connaissait po vraiment celle la