Format de date

Bonjour,

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

Code:

---

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

essaye de faire comme ca :

Code:

---

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

---

et tiens nous au courant

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

Code:

---

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

---

han :
merci random, la connaissait po vraiment celle la :D

Citation:

---

Envoyé par mordrhim

essaye de faire comme ca :

Code:

---

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?

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?

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

Code:

---

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!

Résolu?

Oublié le petit clic?

Bonjour,

Je viens de voir que lorsque l'année est en dessous de 1900 DateSerial plante!! Est-ce normal? Y-a-t-il une sollution?

Merci,

Laurent

bonjour,
en dessous de 1900 il faut employer un long ou un double, les valeurs sont négatives.
Exemple:

Code:

---

1 2 3 4 5

Dim b as long Dim C as Date C = "13/12/1000" b = DateSerial(Year(C), Month(C), Day(C)) Debug.Print b ' donne -328370

---

A+

j'obtient maintenant que des gros chiffre à la place de mes dates...et un négatif pour celle en dessous de 1900. COmment je repasse en format date?

tes gros chiffres peuvent être transformés en date avec
cdate(39350)

pour ma date inferieur à 1900 ca plante toujours. Un Cdate d'un chiffre négatif ca marche pas...

Curieux...
Je viens de tester

Code:

---

MsgBox CDate(-166000)

---

Et j'obtiens 3/07/1445

En fait cdate(x) fonctionne pour x dans [-657437…2958465] soit du 1/1/100 au 31/12/9999.

On peut d’ailleurs s’interroger sur ces limites compte tenu du format des variables de type date qui permettrait de gérer des plages plus étendues, même si elles correspondent à des besoins très particuliers.

En ce qui regarde les nombres négatifs, en raison de la transition julien-grégorien, les dates trop anciennes sont inutilisables. Le changement de calendrier est variable selon les pays, pour la France il se situe le 20/12/1582.

Les dates (ou calculs utilisant des dates) antérieures doivent donc être corrigées par des formules de conversion, et des constantes nationales.

Je prends la discussion en route et n'ai pas tout lu... mais as-tu essayé cette solution ?
Bon courage, avec les dates, on ne sait jamais où on en est... ;)