XL 2013 Redimensionner/Transposer le tableau variable 2D

p56 à dit:

Bonjour,
C'est l'effet Kisscool de Application.Transpose.
Pour contourner cet effet, il est simple d'écrire sa propre fonction Transpose.
Voici la mienne ci-dessous. L'appel est simple, par exemple : arrExemple = Transpose(arrExemple)

VB:

' Auteur : Pierre - P56 - http://tatiak.canalblog.com/
Function Transpose(Ttk As Variant) As Variant
Dim T As Variant, i As Long, j As Long

    ReDim T(LBound(Ttk, 2) To UBound(Ttk, 2), LBound(Ttk, 1) To UBound(Ttk, 1))
    For i = LBound(Ttk, 2) To UBound(Ttk, 2)
        For j = LBound(Ttk, 1) To UBound(Ttk, 1)
            T(i, j) = Ttk(j, i)
        Next j
    Next i
    Transpose = T
End Function

Cliquez pour agrandir...