Discussion :

[Jodko]

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 :

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

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 :

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

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

[Menhir]

Code :

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

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

[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…


Jodko.

[Menhir]

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.

[Jodko]

Au temps pour moi.

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


Jodko.

[Menhir]

Code :

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

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.