cp4
XLDnaute Barbatruc
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).
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
Sachant que mon Excel2010 est à jour et que le code de Mapomme fonctionne correctement sous 365. Je suis perplexe
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).
VB:
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 SubBonne 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
Sachant que mon Excel2010 est à jour et que le code de Mapomme fonctionne correctement sous 365. Je suis perplexe