Le format de "certaines" dates change après traitement dans une variable tableau.

Bonjour,

Je consulte ce site depuis plusieurs mois et j'y trouve généralement des solutions, mais la je bloque (depuis 3 jours).
Voici donc mon 1er message...

Ce petit code m'affiche le bon format de date jusqu'au 30/09/2015. Ensuite, ça devient 10/01/2015, 10/02/2015... 10/12/2015 et à partir du 13, le format redevient correct.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim tabl()   ReDim tabl(1 To 21) I = 1   For dat = CDate("25/09/2015") To CDate("15/10/2015") tabl(I) = (dat) I = I + 1 Next   Range("A1").Resize(UBound(tabl)) = Application.Transpose(tabl)   End Sub

---

Merci d'avance pour vos réponses...

Bonjour, les date toujours au format internationale!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() ActiveCell = TrouveType("toto") ActiveCell.Offset(, 1) = TrouveType("5.2") ActiveCell.Offset(, 2) = TrouveType("01/01/2014") ActiveCell.Offset(, 3) = TrouveType("01/01/2014 15:20") End Sub   Function TrouveType(V) TrouveType = V If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 And InStr(TrouveType, ":") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd hh:mm"): Exit Function If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd"): Exit Function If IsNumeric(Replace(TrouveType, ".", ",")) = True Then TrouveType = Replace(TrouveType, ",", "."): Exit Function End Function

---

Bonjour

Il est vrai que c'est compliqué en VBA de transférer une date vers une feuille.
Robert a raison de prôner l'utilisation dans ce cas du format de date international dans un String.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub testFormatInternational() Dim tabl()   ReDim tabl(1 To 21) I = 1   For dat = CDate("25/09/2015") To CDate("15/10/2015") tabl(I) = Format(dat, "yyyy-mm-dd") I = I + 1 Next   Range("e1").Resize(UBound(tabl)).Value = Application.Transpose(tabl)   End Sub

---

Il y a aussi une autre solution : l'utilisation de FormulaLocal :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub testFormulaLocal() Dim tabl()   ReDim tabl(1 To 21) I = 1   For dat = CDate("25/09/2015") To CDate("15/10/2015") tabl(I) = dat I = I + 1 Next   Range("e1").Resize(UBound(tabl)).FormulaLocal = Application.Transpose(tabl)   End Sub

---

Merci à vous pour ces réponses.
Les 2 solutions fonctionnent, même si je comprend moins la solution .FormulaLocal :oops: , je prend quand même...

au plaisir...

L'origine de ton problème est l'utilisation de Application.Transpose() qui transforme les valeurs Date en valeurs String.

Pour éviter de devoir utiliser Transpose pour transformer ton tableau à une dimension en tableau à 2 dimensions, crée plutôt immédiatement un tableau à 2 dimensions :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test()   Dim tabl()   'Tableau a 2 dimensions ReDim tabl(1 To 21, 1 To 1) I = 1   For dat = CDate("25/09/2015") To CDate("15/10/2015")   tabl(I, 1) = dat I = I + 1 Next   'Comme les valeurs de TABL sont de type DATE, si le format des cellules n'est pas GENERAL ou de type DATE, il y aura inversion jour/mois Range("A1").Resize(UBound(tabl)).NumberFormat = "General"   Range("A1").Resize(UBound(tabl)).FormulaLocal = tabl   End Sub

---

Bonjour Docmarti,

J'avais effectivement remarqué que application.transpose générait le problème, et je ne trouvai pas la solution.

Merci pour l'astuce du tableau à 2 dimensions (et les solutions précédentes). Toutes ces technique vont me servir pour mes futurs projets...

Cordialement.

Bonjour,
Il y a une autre solution avec la propriété NumberFormat de l'objet Range

Code:

---

1 2 3 4 5

With Range("A1").Resize(UBound(tabl)) .Value = Application.Transpose(tabl) .NumberFormat = "dd/mm/yyyy" End With End Sub

---

Et toutes les combinaisons sont possibles NumberFormat = "ddd* dd/mm/yyyy", NumberFormat = "dddd, d mmmm yyyy", etc.

Une solution facile et ne présentant aucun risque d'inversion, est celle de Robert : l'utilisation du format de date international : "2015-01-20". VBA interprète toujours correctement ce format de date.

Une autre solution facile : l'utilisation systématique de .FormulaLocal pour transférer des dates vers Excel.

Avec .VALUE, pour utiliser les autres formats de date que le format de date international dans les valeurs à transférer vers Excel, il faut porter une attention extrême au format des cellules.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Table_A_2_dimensions_Dates_et_Value()   Dim tabl()   'Tableau a 2 dimensions ReDim tabl(1 To 21, 1 To 1) I = 1   For dat = CDate("25/09/2015") To CDate("15/10/2015") tabl(I, 1) = dat I = I + 1 Next   'Comme les valeurs dans TABL sont de type DATE, si le format des cellules etait STRING il y aurait inversion jour/mois avec .VALUE Range("B3").Resize(UBound(tabl)).NumberFormat = "@" Range("B3").Resize(UBound(tabl)).Value = tabl 'Pas d'inversion avec .FORMULALOCAL Range("B3").Resize(UBound(tabl)).FormulaLocal = tabl   'Comme les valeurs de TABL sont de type DATE, si le format des cellules EST GENERAL ou DATE, il n'y a pas risque d'inversion jour/mois avec .VALUE Range("B3").Resize(UBound(tabl)).NumberFormat = "General" 'ou "m/d/yyyy" ou un autre format Date reconnu Range("B3").Resize(UBound(tabl)).Value = tabl 'Pas d'inversion avec .FORMULALOCAL Range("B3").Resize(UBound(tabl)).FormulaLocal = tabl   'Par contre, si les dates dans TABL ataient de type STRING et le format des cellules est de type DATE, il y aurait inversion jour/mois avec .VALUE 'Mais pas d'inversion avec .FORMULALOCAL   End Sub

---

Bonsoir

reagarde par ici
http://www.developpez.net/forums/d15...enter-p1-mois/

Bonsoir.

Citation:

---

Envoyé par patricktoulon

reagarde par ici
http://www.developpez.net/forums/d15...enter-p1-mois/

---

Je l'avais vu. Excellent d'ailleurs.
Ici, c'est un problème différent, car il s'agit de transférer vers une feuille le contenu d'une table contenant des dates au format String.