VBA - Fromat de dates lors d'un copier-coller

Bonjour à tous,

J'ai un problème tout bête lors d'un copier-coller via vba, mais qui devrait parler à bon nombre d'entre vous : la reconnaissance du format de date.

Voilà le code :

Code:

---

Sheets("XXXXXX").Range("H" & l & ":H" & l + Fin - Debut).Value = Sheets("YYYYYYY").Range("W" & Debut & ":W" & Fin).Value

---

Les données sources sont en date française, format texte, et la copie s'effectue bien, mais quand on y regarde de plus près, les dates sont interprétées comme des dates anglo-saxonnes lorsque c'est possible (jour inférieur à 12) et comme du texte dans les autres cas.

(J'ai mis un moment à piger le truc, mais comme les interprétation avaient l'air d'être faite au hasard, et que le hasard n'a pas sa place en informatique basique, je me suis dit que c'était autre chose…)

Un [F2] ou [double-click] sur la cellule et [ENTREE] et l'interprétation en date française se fait. Mais à 12 000 lignes, c'est chiant...

L'interprétation est indispensable, car j'ai besoin d'un regroupement par date dans un TCD.

J'ai essayé de forcer le format dans la feuille de destination, et de ruser dans la macro (à l'aune de ce que j'ai pu lire ça et là sur le forum, mais sans vraiment le comprendre), mais sans succès. Par exemple :

Code:

---

1 2 3

For Each cell In Sheets("XXXXXXXX").Range("H" & l & ":H" & l + Fin - Debut) cell.NumberFormat = "dd/mm/yyyy;@" Next

---

Du coup, j'ai bien en tête un ou deux trucs qui pourrait marcher, soit en utilisant une boucle qui irait chercher les différentes séries de caractères pour les jours, mois et années et reconstruisant la date, soit en ajoutant une colonne avec formule dans le fichier destination, mais je trouve que ce n'est pas très propre (et je suis un esthète 8-) ) et surtout, je ne suis même pas sûr que ça résolve le problème d'interprétation.

Est ce que vous auriez une idée ?

Merci.


Jodko.

Code:

---

Sheets("YYYYYYY").Range("W" & Debut & ":W" & Fin).Copy Sheets("XXXXXX").Range("H" & l)

---

Merci pour la réponse. J'ai testé, et du coup, l'ensemble des dates sont en "Texte" et pas en "Date" (normal puisque cette syntaxe recopie l'ensemble des formats de cellule aussi). Ca a le mérite d'être homogène, mais c'est l'opposé de ce que je cherche…


Jodko.

Citation:

---

Envoyé par Jodko

Merci pour la réponse. J'ai testé, et du coup, l'ensemble des dates sont en "Texte" et pas en "Date" (normal puisque cette syntaxe recopie l'ensemble des formats de cellule aussi). Ca a le mérite d'être homogène, mais c'est l'opposé de ce que je cherche…

---

Il aurait été bien que tu précises que ces "dates" étaient déjà du texte dans tes données sources. :?

Il faudrait savoir à quoi ressemblent tes "dates" pour savoir comment les transférer proprement.

Au temps pour moi.

Elles sont donc au format "texte" : 15/12/2015 par exemple.


Jodko.

Code:

---

1 2 3 4 5 6

Dim CC As Range Sheets("YYYYYYY").Range("W" & Debut & ":W" & Fin).Copy Sheets("XXXXXX").Range("H" & l) For Each CC In Sheets("XXXXXXXX").Range("H" & l).Resize(Fin - Debut + 1, 1) CC.NumberFormat = "dd/mm/yyyy;@" CC.Value = DateSerial(Split(CC.Text,"/")(2), Split(CC.Text,"/")(1), Split(CC.Text,"/")(0)) Next CC

---

Il est certainement possible de tenter des trucs plus propre mais pas sûr que ce serait aussi fiable.

Bonjour,

Ca marche nickel.

Pour ma culture, quelle est la fonction du ";@" ?


Merci.


Jodko.

Ca signifie que si la valeur est négative, on la considère comme du texte.
Personnellement, je n'en vois pas l'intérêt mais c'est toi qui l'avait mise dans le format souhaité dans ton premier message.

Je l'avais recopié sans la comprendre.

Merci en tout cas !


Jodko.