XL 2013 VBA fichier CSV

[lepiouf]

Bonjour,
J'ai un fichier CSV aux colonnes remplies de chiffres.
Je voudrais à partir de la colonne BA1 avoir les valeurs de D2 à M x (nb de lignes variable) dans l'ordre inversé (la ligne 8 ici passerait en ligne 1) et les 10 nombres classés chronologiquement sur la ligne. (1 3 4 8 10... et pas 4 1 8 3 10 ..)
Merci de votre aide.
Le piouf !

 

[job75]

Maintenant par formule c'est encore plus simple, formule en BA1 à tirer à droite et vers le bas :

=SIERREUR(PETITE.VALEUR(DECALER($D$1:$M$1;NB($D:$D)-LIGNE()+1;);COLONNE(A1));"")

 

[lepiouf]

Merci Job avec la formule c'est parfait. Bravo à toi.

 

[job75]

Pour tester les formules j'ai recopié le tableau D2:M8 sur D2:M7001 et exécuté cette macro :

Sub Test()
t = Timer
'[BA1].Resize(7000, 10).FormulaLocal = "=SIERREUR(PETITE.VALEUR(DECALER($D$1:$M$1;NB($D:$D)-LIGNE()+1;);COLONNE(A1));"""")"
[BA1].Resize(7000, 10).FormulaLocal = "=SIERREUR(PETITE.VALEUR(DECALER($D$1:$M$1;7000-LIGNE()+1;);COLONNE(A1));"""")"
MsgBox Timer - t
End Sub

Elle s'exécute en 0,15 seconde... alors qu'avec NB($D:$D) il faut 9,6 secondes.

 

[Cousinhub]

Bonsoir,
Pour le fun, j'ai également testé avec Power Query
Sur 7168 lignes

Rq1 :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    Tri = Table.FromRows(Table.AddColumn(Table.ReverseRows(Source), "Tri", each List.Sort(Record.ToList(_)))[Tri],Table.ColumnNames(Source))
in
    Tri

Rq2 :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    ListCols = List.Buffer(Table.ColumnNames(Source)),
    Tri = Table.TransformColumns(Table.AddColumn(Table.ReverseRows(Source), "Tri", each List.Sort(Record.ToList(_)))[[Tri]],{{"Tri", each Record.FromList(_,ListCols)}}),
    Expand = Table.ExpandRecordColumn(Tri, "Tri", ListCols)
in
    Expand

Les deux requêtes donnent des temps sensiblement identiques, de l'ordre de 0.35 seconde.
Pour ceux qui s'intéresseraient à PQ 😀
Bonne soirée