XL 2016 Format Date

Ludo76

XLDnaute Nouveau
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).
VB:
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,
 

Pièces jointes

  • Démo-Rapport Activité Réalisé v4.50.xlsm
    644.2 KB · Affichages: 9

herve62

XLDnaute Barbatruc
Supporter XLD
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é
 
Dernière édition:

Discussions similaires

Réponses
17
Affichages
760

Statistiques des forums

Discussions
311 737
Messages
2 082 030
Membres
101 876
dernier inscrit
JULIEN21370