XL 2016 Format Date

[Ludo76]

Bonsoir,

Je viens de constater une erreur dans ma macro.

j'utilise un tableau sur la feuille "RAR" dans laquelle figure une date de Revue sous le format jj/mm/aaaa (colonne G).

Sub Terminer_Archiver_Valider_RAR()
'
Application.ScreenUpdating = False 'Empeche le rafraichissement de l'écran
 
'Copie lignes Tableau_RAR vers Historisation
  
Dim f As Worksheet
Set f = Sheets("Base_Historisation")
'Copie lignes Tableau_RAR vers Historisation
Dim tablo1, I&, tablo2(), n&
tablo1 = Sheets("RAR").Range("A10:Q" & Sheets("RAR").[q65536].End(xlUp).Row)
n = 0 'ajout initialisation explicite de n
For I = 1 To UBound(tablo1)
If tablo1(I, 9) = 1 Then
ReDim Preserve tablo2(16, n)
For J = 1 To 16 'ajout boucle
tablo2(J - 1, n) = tablo1(I, J) 'Modif pour incrémentation
Next J 'ajout boucle
n = n + 1
End If
Next I 'ajout i
If n Then
f.Cells(Rows.Count, 1).End(3)(2).Resize(n, 16) = Application.Transpose(tablo2)
End If
end sub

Lorsque je lance ma macro ci dessous, la copie vers la feuille "Base_Historisation" se fait bien mais la date se transforme en mm/jj/aaaa (le 01/11/2019 devient le 11/01/2019.

je n'arrive pas à la transformer ??

Est ce que quelqu'un peut m'expliquer cette transformation et comment la résoudre ?

Par avance merci,

 

[herve62]

Bonjour
cela est connu avec la fonction transpose , si tu maîtrise l'anglais il y a un sujet sur le forum de "Stackoverflow"
Apparemment personne ne sait pourquoi ? ,
Il existe d'autres sujets semblables en français .....mais idem
l'astuce est de mettre la date format string ,
ici j'ai testé les 2 dates , bon pas joli on voit du genre 4973 mais le résultat est bien 04/11 ......
Faudrait peut être voir à mettre dès la saisie en "04/11/2019" ??
tu peux fouiner sur les forums , voir si un contournement t'irait à part aussi faire un Cdate j'ai rien trouvé