XL 2013 Extraire des donnes dans tableau vba avec join

[controlo]

Bonjour les amis ,

J'essaie d extraire des données stockées dans un tableau vba avec la méthode JOIN pour les "concatener" entre elles avec des points virgules .Mais cela ne fonctionne pas , j'ai joint un petit fichier à titre d'exemple .C'est un tableau excel de 5 lignes et 3 colonnes que je stoch dans un tableau vba et ce que je veux faire c'est ressortir ces données de cette façon : a;b;c;d;e;f;g;h;i;j;k;l;m ect.... . Avez-vous une idée ? Merci de votre aide.

 

[Efgé]

Re
J'imagine que c'est

Sub by_evaluate()

Cordialement

 

[Staple1600]

@Efgé
Oui mais je vois rien qui ressemble à de l'Evaluate
(Excepté le [A1]
Et sauf erreur, c'est une variante de syntaxe du message#2, non ?

 

[mapomme]

une boucle for each boucle sur l'ensemble de gauche à droite , puis par ligne
dans le modèle de @mapomme "x" est un object row (une ligne de cellule)

et a partir du moment ou comme je viens de dire au dessus (en rouge )
la double boucle imbriquée n'est pas nécessaire

Bonjour à tous,

D'accord, j'ai eu une petite absence. Mais ça a permis à d'aucuns de développer...

 

[Staple1600]

@mapomme
Puisque tu es revenu, tu peux éclairer ma lanterne by your own ?
merci
(cf le message#8)

 

[Efgé]

Re
@Staple1600
Tu vas être en retard en cuisine si tu continus et les invités vont s'impatienter

A+ à tous
Cordialement

 

[mapomme]

Bonjour @mapomme

[Pour ma gouverne]
Point d'Array(*) dans ta version
(*) au sens classique s'entend

Ici c'est quoi le x
Un range ?
(C'est x.Cells qui m'interpelle)

Bonjour @Staple1600,

X est un range (correspondant à une ligne) de la plage du Range("A1:C5").
Juste si on avait voulu concaténer par colonne au lieu de par ligne, on aurait utiliser utiliser :
for each x in Range("A1:C5").columns

or each x in Range("A1:C5") ne permet de contrôler le sens de lecture du tableau. C'est le VBA (avec Excel en arrière fond qui décide comment il parcourt le tableau).

 

[Staple1600]

@mapomme
Merci pour les explications
C'est donc de la pomme, sans aRay, Charles !
(pardon, je viens de finir ma bière)

Tant qu'on y est on pourrait dégainer du Dictionary ?
ou pire (peut-être) du System.Collections.ArrayList ?
(je dis cela juste pour occuper ce samedi soir pluvieux)

​

 

[patricktoulon]

@Efgé
Oui mais je vois rien qui ressemble à de l'Evaluate
(Excepté le [A1]
Et sauf erreur, c'est une variante de syntaxe du message#2, non ?

re
oui entre crochet c'est une évaluation du contenu des crochet

Sub test()
Set x = [A1]
MsgBox TypeName(x)

'c 'est la meme chose que

Set x = Evaluate("A1")
MsgBox TypeName(x)
End Sub

@Efgé
gagnant ou pas je suis étonné vu ta capture des temps aussi courts
je viens de tester chez moi 2013 32 sur 900 000 lignes ben bye bye ! ça ne s'arrête plus
j'ai été obligé de claquer excel dans les taches

d'accord j'ai que 4 giga de proc et 4 de ram mais quand même ,il faut combien pour avoir des temps pareils 40 GIGA de proc et 200 de ram ??

 

[mapomme]

Re,

Avec les deux macros de @Efgé , j’obtiens ceci:

Étrange, non ?

 

[patricktoulon]

re
@mapomme
oui là chez toi aussi c'est evaluate qui gagne
par contre je le redis sur 900 000 lignes et 3 colonne comment vous faites pour avoir des temps pareils
je suis sur que chez moi si je l'arrête pas je dépasse les 10 minutes

ca me perturbe au plus au point ça meme si je travaille sur le pc portable il ne devrait pas y avoir une si grande différence

 

[Staple1600]

Re

Je ne vois pas le gain de [A1] par rapport à Cells(1).Resize(10000,3)
?
formule EVALUATE sur [A1].Resize(900000, 3) :0,38 SEC
formule VARIABLE TABLEAU sur [A1].Resize(900000, 3) :0,16 SEC
formule Cells(1).Resize(900000, 3) :0,36 SEC
formule TABLEAU sur Cells(1).Resize(900000, 3) :0,16 SEC


PS: je crains que la malédiction du chiffre 13 soit sortie de la boite de Pandore
(cf message#13)

 

[mapomme]

Re @patricktoulon,

Ma config de PC de bureau :

• Type de processeur : AMD Ryzen 7 3700X (8 coeurs / 16 threads - 3.60 GHz - Turbo 4.40 GHz - Cache 32 Mo - TDP 65W)
• Taille mémoire : 16 Go
• Configuration disque(s) : SSD 1 To
• carte graphique : MSI GeForce RTX 2070 Tri FROZR
• Système d’exploitation 64 bits, processeur x64 - Windows 11 Famille
• Microsoft® Excel® pour Microsoft 365 MSO (Version 2210 Build 16.0.15726.20068) 32 bits

Pas de super micro comme tu vois.

 

[Staple1600]

@mapomme
Comment tu expliques mes résultats ???
(cf message#26)
Je n'ai que 6 Go de RAM
(et c'est un vieux PC : Intel(R) Core(TM) i5-2320 CPU @ 3.00GHz 3.00 GHz )

C'est quand même pas le fait d' être en 365 64 bits ?

 

[patricktoulon]

@mapomme
mais ca ma toujours étonné
mème avec le gamer(paix a son âme il n'avait pas qu'a boire mon café un matin difficile)
je n'avais pas des delay aussi courts pourtant c'etait une fusée avec 32 de ram utilisable et la carte graphique avec sa propre mémoire (8G)
meme avec le patch LAA pour 2013 je reste loin

 

[Efgé]

Re

par contre je le redis sur 900 000 lignes et 3 colonne comment vous faites pour avoir des temps pareils

Nous ne testons que la boucle sans alimenter aucune variable et avec une plage vide.
Juste la boucle...

Étrange, non ?

Je pense la version précise d'excel est nécessaire en plus du bousin (PC) utilisé :
Chez moi

Et

Cordialement