Bonjour forum,

j'alimente un tableau à partir d'une liste d'une feuille excel, et ensuite je retranscris les données de mon tableau sur une autre feuille excel. Le transfert se fait bien excepté les dates.
La macros inverse les mois et les jours, exemple dans ma liste de données originale, les dates sont 06/09/11, lorsque je transpose mon tableau il indique 09/06/11, mais il inverse les mois et jour seulement quand c'est possible, exemple 28/08/11, après mon transpose il garde la même valeur.

Je ne comprend pas pourquoi il inverse les jours et les mois, j'ai testé avec le mode pas à pas, lorsque j'alimente mon tableau les données sont entrées correctement, 06/09/11, c'est seulement lors du transposage que ça ne fonctionne plus.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
30
31
32
33
34
35
36
37
38
39
 
Sub tab()
Dim i, j, x, last, statut As Integer
Dim tabSche() As Variant
Dim tabScheDate() As Date
 
Application.ScreenUpdating = False
With Sheets("Data")
.Select
 
'test si il y a des valeur
If .Range("Q3").Value = "" Then
    Application.ScreenUpdating = True
    Exit Sub
End If
 
last = .Range("Q65536").End(xlUp).Row
x = 0
    For i = 3 To last
        If i = 3 Or Cells(i, 17) <> Cells(i - 1, 17) Then
            x = x + 1
            ReDim Preserve tabSche(1 To 11, 1 To x)
            For j = 1 To 9
                tabSche(j, x) = Cells(i, 16 + j)
            Next j
            ReDim Preserve tabScheDate(1 To 2, 1 To x)
            For j = 1 To 2
                tabScheDate(j, x) = Format(Cells(i, 25 + j), "dd/mm/yy")
            Next j
        End If
    Next i
End With
 
With Sheets("TCD")
.Select
 
Range(Cells(5, 29), Cells(UBound(tabSche, 2) + 4, 37)) = Application.WorksheetFunction.Transpose(tabSche)
Range(Cells(5, 38), Cells(UBound(tabScheDate, 2) + 4, 39)) = Application.WorksheetFunction.Transpose(tabScheDate)
end sub
Merci d'avance pour votre aide