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).
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,
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 subje n'arrive pas à la transformer ??
Est ce que quelqu'un peut m'expliquer cette transformation et comment la résoudre ?
Par avance merci,