Application.transpose bug erreur 13

[PascalXLD]

Bonjour

Voilà j'ai un tableau de variable.
Je mets les valeurs de ce tableau de variable dans un spreadsheet avec :

With Uf_Visual.Spreadsheet1.ActiveSheet
.Range(.Cells(2, 1), .Cells(i, 4)) = Application.Transpose(PlageCible)
End With

Malheureusement cela plante lorsque mon tableau de variable ici plagecible arrive à 1366 lignes (à 1365 lignes pas de problème). J'ai une erreur 13 Incompatibilité de type. i est déclaré en Long. De toute façon il aurait buggé avant si cela venait de là.

Quelqu'un a une idée ?

Merci d'avance

 

[PascalXLD]

Bonjour

Bon je viens de trouver la raison

Jusqu'à Excel 2002, Application.Transpose est limité à 5461 éléments (je travaille sous excel 2000)

1365 lignes * 4 colonnes = 5460 éléments
1366 lignes * 4 colonnes = 5464 éléments

A voir

Ce site n'existe plus
Lien supprimé
Lien supprimé

Merci à tous ceux qui ont cherché (ils se reconnaitront)

Bonne journée