Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Extraire des donnes dans tableau vba avec join

controlo

XLDnaute Occasionnel
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.
 

Pièces jointes

  • lecture tableau pour xld .xlsm
    19.7 KB · Affichages: 11
Trier par date Trier par votes

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

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

mapomme

XLDnaute Barbatruc
Supporter XLD
Staple1600 à dit:
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)
Cliquez pour agrandir...
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).
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
@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)

​

 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
Staple1600 à dit:
@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 ?
Cliquez pour agrandir...
re
oui entre crochet c'est une évaluation du contenu des crochet
VB: 
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 ??
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
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)
 
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
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.
 
Dernière édition:
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
@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
 
Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc
Re
patricktoulon à dit:
par contre je le redis sur 900 000 lignes et 3 colonne comment vous faites pour avoir des temps pareils
Cliquez pour agrandir...
Nous ne testons que la boucle sans alimenter aucune variable et avec une plage vide.
Juste la boucle...
mapomme à dit:
Étrange, non ?
Cliquez pour agrandir...
Je pense la version précise d'excel est nécessaire en plus du bousin (PC) utilisé :
Chez moi

Et

Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Z
  • Question Question
Microsoft 365 Recherche d'une valeur max dans un tableau représentant des paliers
Réponses
3
Affichages
170
zedude
Z
C
  • Question Question
Microsoft 365 Extraction de datas dans des fichiers pdf
Réponses
2
Affichages
561
kiki29
I
  • Résolu(e)
Microsoft 365 Supprimer des colonnes discontinues
Réponses
10
Affichages
401
iliess
I
  • Question Question
Microsoft 365 MACRO VBA - Extraire des listes à partir d'une boucle
Réponses
5
Affichages
472
chris6999
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
866
laurent950
R
  • Résolu(e)
XL 2019 Comment extraire séparément plusieures chaines de caractères ou chiffres/nombres depuis une cellule avec libellé complexe alpha numérique
2
Réponses
28
Affichages
1 K
Renardy
R
J
  • Question Question
Microsoft 365 extraction VBA avec formule si
Réponses
10
Affichages
553
Phil69970
P
  • Résolu(e)
XL 2010 Attribuer des points à des joueurs suivant leur pronostics
Réponses
13
Affichages
611
Phiphi4457
P
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
2 K
Florent74
F
B
  • Question Question
XL 2016 Recherchez des valeurs et copiez-les dans un autre tableau en fonction de certaines conditions
Réponses
4
Affichages
615
bossman_16
B
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
338
crocrocro
C
U
  • Résolu(e)
XL 2021 Recherche un utilitaire (Code VBA) pour la structure des tableaux Excel
Réponses
8
Affichages
579
UnDePlusieurs
U
Z
  • Résolu(e)
Microsoft 365 (résolu) Position d'une valeur max dans un tableau avec ex-aequo
2
Réponses
15
Affichages
575
crocrocro
C
R
  • Question Question
XL 2021 Récupérer des données dans plusieurs classeurs sans les ouvrir - Résolu
Réponses
10
Affichages
489
job75
F
  • Résolu(e)
Microsoft 365 Extraire le code pays d'une référence avec un code VBA
2 3
Réponses
40
Affichages
2 K
Faroyo
F
G
  • Question Question
Google Sheets extraire des lignes de données d'un tableau pour les intégrer dans un autre
Réponses
0
Affichages
489
greggies
G
L
  • Question Question
XL pour MAC tableau ans perturbation des colonnes non copié
Réponses
5
Affichages
608
DJunqueira
D
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
717
chaelie2015
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
430
Chaton77
M
  • Question Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
651
MGH
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…