une data perdue lors d'un transpose

[gosselien]

Bonjour,

En feuille "source" des dates et des données; en feuille "cible" je cherche à avoir ces dates et date transposées mais j'ai 2 soucis:
1 - mon code oublie à chaque date une donnée (la dernière de sa série)
2 - si les dates se placent bien en ligne1 de l'onglet cible, les données ne commencent pas en ligne2 et je ne vois pas pourquoi...

Merci de m'éclairer

P.

 

[klin89]

Re : une data perdue lors d'un transpose

Bonsoir à tous,

Une autre façon de procéder :

Option Explicit

Sub test1()
Dim a, b(), i As Long, t As Long, maxRow As Long, w()
    With Sheets("source").Range("a1").CurrentRegion
        a = .Value
        ReDim b(1 To UBound(a, 1), 1 To 1)
        With CreateObject("Scripting.Dictionary")
            .CompareMode = 1
            For i = 2 To UBound(a, 1)
                If Not .exists(a(i, 1)) Then
                    t = t + 1
                    If t > UBound(b, 2) Then
                        ReDim Preserve b(1 To UBound(b, 1), 1 To t)
                    End If
                    b(1, t) = a(i, 1)
                    .Item(a(i, 1)) = VBA.Array(1, t)
                End If
                w = .Item(a(i, 1))
                w(0) = w(0) + 1
                b(w(0), w(1)) = a(i, 2)
                maxRow = Application.Max(maxRow, w(0))
                .Item(a(i, 1)) = w
            Next
        End With
        .Offset(, .Columns.Count + 1).Resize(maxRow, UBound(b, 2)).Value = b
    End With
End Sub

klin89