XL 2021 Vos avis SVP: Une fonction TRANSPOSE() à améliorer

[p'tit vieux]

Bonjour à tous,
Pour mes codes VBA, j'ai écris une première version de ma fonction Transpose() que je vais mettre à votre disposition dans sa version 1.0.0.
Toutefois, je voudrais votre avis sur l'intérêt de rajouter des options complémentaires à celle-ci.

Dans un premier temps j'ai écris une fonction Transpose() afin de lever la limite des 65536 lignes de la fonction "WorkSheetFunctions.Transpose" d'Excel.
Pour mes besoins j'ai ajouté les possibilités suivantes:
- Choisir la base départ du tableau (Base 0 ou 1)
- Pouvoir convertir un texte/valeur simple dans un tableau 2D T(1,1)

Rien d'exceptionel, mais pratique.

Donc je vous propose de me soumettre vos idées.

Par exemple, j'ai pensé à:
- Si on transmet T(0 to 0, 0 to N) ou T(1 to N, 1 to 1) Transpose() renvoie un tableau 1D T(0 to N) ou T(1 to N) suivant la base choisie
- Transposer ET ne renvoyer que les n premieres lignes
- Transposer ET ne renvoyer de la ligne n° X à n° Y

Voilà pour ces quelques idées.
A votre avis laquelle ou lesquelles de celles-ci ont-elles un intérêt.

Et vous, vos autres idées qui vous paraitraient utiles?
Ensuite suivant vos propositions ….
Je nommerai un 1er Ministre du développement 🤣
Mais non! Je publierai une nouvelle version (Pas sérieux ces P'tit Vieux)

Merci pour vos avis et suggestions.

ATTENTION!
Ici il n'est pas question de faire des recherches de texte/valeur ou autre truc du genre.

 

[Dudu2]

Bon alors, t'as trouvé pourquoi le code de Transpose2D initial était plus long malgré des boucles inchangées ?

 

[patricktoulon]

non ca m’échappe en fait je ne doit pas regarder au bon endroit

 

[Dudu2]

Tiens, je t'ai pourri ton code de TransposeXV3 pour qu'il dure plus longtemps. Quasi rien changé, 2 caractères.

 

[patricktoulon]

bon j'ai testé ta boucle avec lbase externalisé
visiblement je reviens en tête de quasiment rien
tu est a 414.xxx et moi 410.xxxx
c'est vrai que j'aurais du y penser à celle là x plutot que lbase1+x

 

[Dudu2]

Oui mais l'important c'est la déclaration de la table résultat.
Dim T2 as variant
Dim T2() as variant
Ça change tout car la 1ère déclaration impacte de 10% la performance car je suppose qu'à chaque fois qu'on référence T2 il se pose la question de savoir ce que c'est alors que dans le 2ème déclaration, il sait d'avance que c'est une table.

 

[patricktoulon]

mais pour le tiens c'est un pas de geant
de plus de 510/530 tu repasse à 410/430
à l'échelle c'est énorme
à moins que tu essaie de m'expliquer quelque chose qui est évident pour moi et donc que je n’irais pas regarder
alors c'est quoi le truc?

pour ma version l'externalisation des lbase m'a fait revenir au temps des premières versions ou il y avait pas toutes ces options 394/410 ms
mais j'aimerais bien comprendre pour le tiens
qu'est ce que j'ai bien pu t'inspirer pour gagner quasiment 100 ms

bon ben en tout cas sur le fichier 252
on remarque bien que j'ai eu raison de passer par un case au lieu des if

 

[patricktoulon]

tu pense vraiment que ça a un impact si important ?
je vais tester

 

[patricktoulon]

testé chez moi ( dim t2 Vs dim t2() ) ca change rien
apres je sais pas j'ai toujours dimensionné moi sauf si c'est dans une classe en public (ce qui n'est pas possible )
ce qui m'a fait gagner c'est bien l’extériorisation de lbase1 et 2 pour x et q

tu varie entre 400/425
et moi je varie entre 394 et 410
quelque fois tu passe en dessous les 400 quand même mais bon difficile avec le timer de juger cette infime différence
dans tout les cas on arrive à des temps d’exécution que l'on avait avec nos premières moutures sans options c'est donc bien géré

 

[patricktoulon]

bon ben en amont c'est même le contraire
sans dimension array

avec dimension array

 

[Dudu2]

testé chez moi ( dim t2 Vs dim t2() ) ca change rien

Ça a forcément un impact puisque tu as détecté l'amélioration de Transpose2D !

Je sais pas comment tu testes, c'est pourtant simple. Dans ton code TransposeXV3:

'#Const DIM_T2_TABLE = True
#Const DIM_T2_TABLE = False

#If DIM_T2_TABLE Then
    Dim T2() As Variant
#Else
    Dim T2 As Variant
#End If

#Const DIM_T2_TABLE = True
'#Const DIM_T2_TABLE = False

#If DIM_T2_TABLE Then
    Dim T2() As Variant
#Else
    Dim T2 As Variant
#End If

 

[patricktoulon]

re oui mais avec ma version non

 

[patricktoulon]

par contre en amont(dans l'appel de la sub) ça a un impact négatif

 

[p'tit vieux]

Bonjour @Dudu2 , @patricktoulon et à tous

J'ai testé le coup du changement de variable avec timer sur un tableau de 10 000 x 100 (1 million)
Avec TIMER, j'ai fait moulte essais en ne changeant QUE la nature de la variable TT vs TT().
CHRONO TT(): 0,34375
CHRONO TT : 0,39844
à chaque fois l'ecart est grosso modo le même quelque soit la taille du tableau le temps est en faveur de T():
- environ 25% pour 100 000
- environ 15% pour 1 million
- environ 15% pour 5 millions

J'ai aussi, voulu tester la factorisation des boucles qui "swap" le tableau TT
La catastrophe 😱. Je ne vous en parle même pas. 😰
Vive la factorisation! 😂 😉

 

[p'tit vieux]

Bonsoir à tous,
Pour ceux qui ont participé à cette discussion et ceux qui sont intéressés je vous annonce ma nouvelle version qui grâce à vous à bien évoluée.
La nouvelle version, Transpose2D et TransRange sont à votre disposition ici
Merci @Dudu2 et @patricktoulon pour leurs participations et débats acharnés 😁🤗.
Dans cette version 2.1 je pense que même les matheux devraient y trouver de quoi faire 😉
Testez et dites moi ce que vous en pensez.!
Bonne soirée à tous