Discussion :

[jad73]

bonjour le forum

J'ai une macro qui supprime les doublons en comparant 2 fichiers, le fichier A est fixe c'est le fichier B qui est comparé et ou est supprimé les doublons mais la macro ne prend pas plus de 65575 lignes hors j'ai excel 2010 avec 1049000 lignes et j'ai l'erreur 13 incompatibilité de type.
C'est cette ligne qui est en jaune

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Value = Application.Transpose(CombC.Items

Que faut-il faire.
merci

[Marc-L]

Bonjour,

effectivement, comme la fonction de feuille de calculs TRANSPOSE est limitée à 65 536 éléments,
il est nécessaire de créer sa propre routine de transposition …

[jad73]

bonjour Marc-L, le forum

En fouinant sur le net(car étant nul en vba) j'ai rajouté la function mais j'ai de nouveau erreur 13 et c'est la ligne en gras qui pose probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Transp(tableau)
 Dim i&, u&, v()
 u = UBound(tableau) 
ReDim v(0 To u, 0)
 For i = 0 To u: v(i, 0) = tableau(i): Next i
 
End Function

merci

[Marc-L]

En fouinant sur le net dans une vieille notice Microsoft voir la procédure TransposeDim …

Mais vu le nombre d'éléments (1), le plus judicieux ne serait pas de transposer
mais plutôt d'effectuer une boucle afin d'écrire le résultat dans les cellules
en prenant soin de désactiver au préalable l'affichage de l'écran via la propriété ScreenUpdating …

(1) Tout dépend de la mémoire vive disponible sur l'ordinateur …