XL 2010 à test sous Excel 2010

[cp4]

Bonjour,

Je vous en serai gré, à tous ceux et celles qui ont Excel 2010 de tester ce code de cette discussion.
Ce code est de Mapomme, en mp il m'a confirmé que sous 365 le code ne plante pas.
J'avoue qu je n'ai pas compris pourquoi ça plante chez moi (Erreur d'éxecution 13, incompatibilité de type).

Option Explicit

Sub Initmapomme()
Const nbrlig = 100000
Dim i&, c$, Ti
   Ti = Timer
   ReDim t(1 To nbrlig, 1 To 4)
   Randomize
   For i = 1 To UBound(t)
      t(i, 1) = i + 1
      t(i, 2) = "Toto" & (1 + Int(10000 * Rnd))
      Select Case Int(3 * Rnd)
         Case 0: t(i, 3) = Replace(t(i, 2), "o", "a")
         Case 1: t(i, 3) = Replace(t(i, 2), "o", "i")
         Case 2: t(i, 3) = Replace(t(i, 2), "o", "u")
      End Select
      t(i, 4) = Int(10000 * Rnd) / 100#
   Next i
   Application.ScreenUpdating = False
   Cells(2, "a").Resize(nbrlig, 3) = t
   Cells(2, "p").Resize(nbrlig) = Application.Index(t, 0, 4) 'ici bug
   MsgBox Format(Timer - Ti, "0.000\ sec.")

End Sub

En vous remerciant.
Bonne journée.

PS: j'ai eu, il y a quelques jours un problème pour la récupération d'un array certaines colonnes dans un autre array en utilisant la fonction Index.
Le code plantait dès que le nombre de lignes dépassé 65536. Grâce à PatrickToulon (que je salue), j'ai installé le service pack2 et tout est rentré dans l'ordre.
Sachant que mon Excel2010 est à jour et que le code de Mapomme fonctionne correctement sous 365. Je suis perplexe.

 

[M12]

De mon côté, il bug au même niveau sur 2010 et 2013
ne depasse pas la Const 65536

 

[job75]

Bonjour cp4, M12,

Chez moi sur Excel 2019 pas de bug mais pour éviter Applivation.Index :

   Application.ScreenUpdating = False
   Columns("D").Insert
   Cells(2, "A").Resize(nbrlig, 4) = t
   Cells(2, "Q").Resize(nbrlig) = Cells(2, "D").Resize(nbrlig).Value
   Columns("D").Delete

Cela augmente peu la durée des calculs.

A+

 

[Eric C]

Bonjour le forum
Bonjour cp4, M12 & job75

Excel 2010 - 32bits - (Erreur d'exécution 13, incompatibilité de type). - Fonctionne jusqu'à la ligne 10001 -
Bonne journée à toutes & à tous
Eric c

 

[M12]

Bonjour Job75
Cela fonctionne avec ta modif aussi bien sur 2010 que 2013

 

[cp4]

Bonjour Job75 , M12,

@M12 : Il m'avait semblé que ça dépassé les 65536 lignes suite à l'installation de la mise à jour KB2687455. Je viens retester ça plante toujours au-delà des 65536 lignes. Rien compris aux caprices de ces foutues versions.

@job75: Merci beaucoup pour ta solution qui fonctionne parfaitement.
Mais je suis resté sur ma "faim". Je n'ai pas de réponse quant à la limitation de lignes, depuis Excel2007 on a bien 1048576 lignes * 16384 colonnes. Mais bon, Microsoft nous berne au fil des versions, sur l'un ça fonctionne et plus sur une autre.

En cas merci beaucoup.
Bonne journée.

 

[cp4]

De mon côté, il bug au même niveau sur 2010 et 2013
ne depasse pas la Const 65536

Re M12,

D'après PatrickToulon , une mise à jour pour 2013 résout le problème de limitation de lignes dans cette discussion.

je n'ai pas la version 2013 pour tester, à tester chez toi. Merci de confirmer. Pour moi pas de bol.

 

[M12]

Re M12,

D'après PatrickToulon , une mise à jour pour 2013 résout le problème de limitation de lignes dans cette discussion.

je n'ai pas la version 2013 pour tester, à tester chez toi. Merci de confirmer. Pour moi pas de bol.

Re,

Je regarderai cela à temps perdu et signalerai le résultat

 

[cp4]

Re,

Je regarderai cela à temps perdu et signalerai le résultat

OK, merci beaucoup.

 

[soan]

Bonjour cp4, le fil,

à tout hasard : sur un fichier d'un demandeur, j'ai eu une Erreur d'exécution 13,
incompatibilité de type car dans une de ses données, y'avait la valeur d'erreur
#REF! ; alors peut-être devrais-tu vérifier tes données ? il y a peut-être #REF!
(ou une autre valeur d'erreur) ?

soan

 

[job75]

@soan un peu trop vite fait, il suffit de regarder la macro du post #1.

Il est évident qu'il ne peut pas y avoir de valeurs d'erreur dans les matrices.

Mais même s'il y en avait ça ne changerait rien au problème qui est celui de la restitution.

 

[R@chid]

Bonjour @ tous,
Aucun bug sous Excel365, durée d’exécution 1,437s.

Cordialement

 

[patricktoulon]

bonjour a tous
ça fonctionne chez moi 2013 1 ,32 sec
@cp4 c'est pas le service pack 2 qui répare le problème de limite des fonction excel /vba a 65535
c'est le kb3115162 combien de fois vais-je devoir le dire
ne transforme pas les information que l'on te donne
et il est valable que pour les versions rt oem pas le C2R

tout ceux qui ont ces versions bridée a mort ben... dommage

 

[M12]

Bonjour à tous,
Je confirme, sur 2013 avec le kb3115162, cela fonctionne

 

[cp4]

bonjour a tous
ça fonctionne chez moi 2013 1 ,32 sec
@cp4 c'est pas le service pack 2 qui répare le problème de limite des fonction excel /vba a 65535
c'est le kb3115162 combien de fois vais-je devoir le dire
ne transforme pas les information que l'on te donne
et il est valable que pour les versions rt oem pas le C2R

tout ceux qui ont ces versions bridée a mort ben... dommage

Bonjour à toutes et à tous.

Je vous remercie beaucoup, très gentil de votre part.

@patricktoulon : Je n'ai rien transformé du tout. C'est ainsi que j'avais compris.

Je viens aussi de comprendre que ma version est bridée

Encore merci à vous.

Bonne soirée.