Extraction Une colonne d'un Array

L

laetitia90

XLDnaute Barbatruc

• 19 Janvier 2018

• #2

salut l'ami
essai index

VB:

 [e2].Resize(UBound(tabInit, 1)) = Application.Index(tabInit, , 2)

attention index limite restitution 65000 idem manip.... transpose

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 19 Janvier 2018

• #3

Salut Laetitia !!

So simple !!
ca marche nickel !
Merci et sur cette bonne nouvelle, BON week end ! :-D

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 20 Janvier 2018

• #4

Bonsoir Nicole, Laetitia90, Vgendron

Merci déjà à Nicole d'avoir complété la réponse de Laetitia90.
Pour ces trois essais.

Sur 50000 lignes, vos trois méthodes se traitent en moins de 0.5 secondes.

Pour la première méthode, en boucle for...next, c'est nettement plus long : 28s !
Mais, et on arrive à réduire à 2s en utilisant avant la boucle :
Application.Calculation = xlCalculationManual
(et en rajoutant l'instruction Application.Calculation = xlCalculationAutomatic en fin de code).

Ce n'est pas tout le temps le cas mais bien souvent, cette petite ligne apporte satisfaction pour ceux qui, et je m'inclus dedans, sont toujours instinctivement porté sur le "for...next".
Dans le cas présent, c'est pas mal (sur le timing).

Bonne nuit
zebanx

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 20 Janvier 2018

• #5

re tous & toutes ,bonjour Nicole
il y a tellement de methode pour ecrire cela < 65000 item ou sup...
en régle géneral si on fait rien sur une colonne un simple copier coller largement suffisant
l'ami zebanx !!!c'est trés bien monte bien en Pce dans le vba

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #6

Bonjour le fil, le forum

@laetitia90
Je sais que ne je suis pas de ce siècle
Mais même en me creusant mes derniers méninges
"l'ami zebanx !!!c'est trés bien monte bien en Pce dans le vba"
J'ai rien compris à cette phrase

PS: Au final, c'est quelle solution qu'il faut privilégier ?
Et sinon au pif, cet oiseau là ne peut servir ici par hasard?
CreateObject("System.Collections.ArrayList")
ou sa petite soeur
Ce lien n'existe plus

EDITION; Merci la caféine!
Je viens d'avoir une révélation
leti
Ta phrase ce serait pas :""l'ami zebanx !!!C'est très bien, monte bien en puissance dans le vba" ?
J'ai bon ?

 

Dernière édition: 20 Janvier 2018

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 20 Janvier 2018

• #7

Bonjour à tous,

une petite modification de la fonction de nicole permet de se passer du transpose() et de sa limite à 65k :

VB:

Function ExtraitCol(a, col)
  ReDim b(LBound(a) To UBound(a), 1 To 1)
  For i = LBound(a) To UBound(a)
     b(i, 1) = a(i, col)
  Next i
  ExtraitCol = b
End Function

Tant qu'à faire...
eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #8

Bonjour eriiiiic

Et la petite sœur ou son petit frère? (voir mon précédent message)
Me-fourvoie-je?
Suis-je à côté de la plaque?

@leti
Ton like vaut pour un bon? Je suppute que oui car qui ne dit mot, consent et le silence est d'or.
Donc je vais me recoucher

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 20 Janvier 2018

• #9

re ,
tu as tout bon JM

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #10

Re

@laetitia90
Oui mais est-ce que mon intuition a bon sur ce sujet?

Staple1600 à dit:

Et sinon au pif, cet oiseau là ne peut servir ici par hasard?
CreateObject("System.Collections.ArrayList")
ou sa petite soeur
Ce lien n'existe plus

Cliquez pour agrandir...

Est-ce qu'ici pour la problématique de vgendron, on peut sortir ce petit oiseau ?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 20 Janvier 2018

• #11

Je ne pense pas que le arraylist apporte un plus ici, vu qu'il est plus lent à charger et qu'on n'a pas besoin de tri (ou j'ai mal lu...)

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 20 Janvier 2018

• #12

re

surement JM mais dans son cas c'est utiliser du méga lourd pour "pas grand chose" & pas forcement plus rapide dans certains cas

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 20 Janvier 2018

• #13

Bonjour à tous,

Que de grands intervenants pour un simple copier-coller de colonne (#6)
Et l'on peut supposer que toute intervention < 1s n'intéresse pas JOB75, Pierre-Jean...

J'ai bien envie quand même de déclarer Laetitia90 gagnante : le copier-coller de la colonne B vers la colonne H, c'est indéniablement... une méthode à retenir qui va à l'essentiel sur la question posée :
y a t il un moyen de récupérer directement SANS boucle TOUTE la colonne?
CQFD !

Bon we (chers(ères) pourfendeurs(-euses) de code !)
D'autres codes la semaine prochaine (celle-ci fut un peu creuse me semble-t-il...).

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 20 Janvier 2018

• #14

C'est normal qu'elle gagne, elle est la seule à ne pas être tombée dans le piège du titre "Extraction Une colonne d'un Array" ;-)

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Janvier 2018

• #15

Hellooo à toutes et tous !
je vois que le sujet vous inspire :-D
@Staple1600 l'idée du ArrayList est à garder pour d'autres sujets plus complexes que j'ai de temps en temps..
ici, un "simple" copier coller me va pour l'instant.

@eriiiic : le piège du Array... effectivement.. c'est un flou qui persiste chez moi.. table, tableau, array...Francais Anglais....
j'aurais du mettre quoi pour etre moins ambigu?

sinon: c'est moi ou le post de nicole a disparu??
en tout cas, merci à toutes et tous

 

Vote positif 0 Vote négatif