Limite de "WorksheetFunction.Transpose" atteinte

Bonjour le forum

J'ai un tableau (array) que je souhaite transposer dans une feuille Excel. J'ai un soucis car si une donnée du tableau excède 255 caractères ça plante. Comment contourner ce problème ? Voir avec ma ligne de code ci-dessous.

Par avance merci de l’intérêt porté au sujet

FeuilExt.Range("A2").Resize(UBound(NewTab, 2), UBound(NewTab, 1)) = WorksheetFunction.Transpose(NewTab)

Bonjour,

C'est pas dur, il suffit d'écrire sa propre fonction Transpose.

Voici la mienne :

Function Transpose(Ttk As Variant) As Variant
Dim T As Variant, lg As Long, cl As Long, i As Long, j As Long

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

L'appel est simple, par exemple :

FeuilExt.Range("A2").Resize(UBound(NewTab, 2), UBound(NewTab, 1)) = Transpose(NewTab)

Merci du retour

Effectivement je pensais a faire une transposition "manuel" je voulais savoir s'il existait une solution plus simple...

Comme par exemple avoir la possibilité d'écrire ListBox1.Column = Tbl au lieux de ListBix1.List = WorksheetFunction.Transpose(Tbl)