erreur 13

[jad73]

bonjour le forum

J'ai une macro qui élimine les doublons d'un fichier par rapport a un autre mais elle ne prend que 65575 lignes si je met plus de lignes j'ai erreur 13, pensant qu'elle avait été écrite sous excel d'avant 2007 je l'ai reécrite manuellement dans un nouveau classeur excel 2010 mais j'ai toujours la même erreur, de quoi cela peut-il venir.
La ligne en jaune est celle-ci:

.Value = Application.Transpose(CombC.Items)

merci

 

[zeltron24]

Re : erreur 13

Bonjour jad,

Bizarre votre erreur, car chez moi cela fonctionne correctement.
Pas d'erreur.

 

[jad73]

Re : erreur 13

bonjour zelton, le forum

vous avez mis plus de 65575 lignes dans la fichier B, j'ai été obligé de le couper car il ne passait pas en taille même compressé.
merci

 

[néné06]

Re : erreur 13

Bonjour Jab73, Salut zeltron.

Tu parles de 65575 lignes,mais n'est ce pas plutôt au dessus de 65535 lignes , ce qui apporterait une erreur, qui serait réparable par des variables (Long ou Double) plutôt que (Integer)?
Comme pour zeltron, ce programme tourne chez moi avec 63301 lignes ?

A+

René

 

[néné06]

Re : erreur 13

Re,

Je viens de tester avec 67000 lignes et chez moi cela fonctionne ??

A+

René

 

[jad73]

Re : erreur 13

bonjour néné06, le forum

je n'ai pas de mot 'Integer' dans le code
merci

 

[ROGER2327]

Re : erreur 13

Bonjour à tous.

bonjour le forum

J'ai une macro qui élimine les doublons d'un fichier par rapport a un autre mais elle ne prend que 65575 lignes si je met plus de lignes j'ai erreur 13, pensant qu'elle avait été écrite sous excel d'avant 2007 je l'ai reécrite manuellement dans un nouveau classeur excel 2010 mais j'ai toujours la même erreur, de quoi cela peut-il venir.
La ligne en jaune est celle-ci:

.Value = Application.Transpose(CombC.Items)

merci

Pour voir si la fonction Transpose est en cause, remplacez cette ligne :​

.Value = Application.Transpose(CombC.Items)

par :​

.Value = transp(CombC.Items)

où la fonction transp est :​

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
    transp = v
End Function

Bon courage.


ℝOGER2327
#7268

Lundi 2 Palotin 141 (Fête des Ecluses - fête Suprême Quarte)
2 Floréal An CCXXII, 5,8816h - chêne
2014-W17-1T14:06:57Z

 

[jad73]

Re : erreur 13

bonjour roger2327, le forum
j'ai testé vos modifications mais maintenant j'ai erreur 1004 aucune donnée à convertir n'a été selectionnée

.TextToColumns Destination:=Range("Q2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
SemiColon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True

Faut-il supprimer tous les 'Application.Transpose' et les remplacer par 'transp'
merci