Hervé
XLDnaute Barbatruc
Bonjour tout le monde
petite question à soumettre à votre sagacité.
J'ai une base de données (+ de 100 000 lignes et 27 colonnes) provenant d'un fichier txt.
je dois faire certains traitement sur cette base, des sommes avec critères, des moyennes, etc....
je stocke cette base dans une variable tableau (le célèbre tablo, que me jalouse josé et Mdf 😀) .
afin de simplement faire la somme d'une colonne précise, je me suis fait une fonction personnalisée, me transformant ce tableau multidimension en un tableau unidimension (ca se dit ca ?)
Mais je me demande si je ne pourrais pas simplifier et rendre plus rapide mon code, particulierement en évitant la boucle for to dans la function.
je suis donc preneur d'idée.
je joins un fichier exemple, en appuyant sur le bouton vous faites la somme de la colonne B (magique, non ? )
salut 🙂
petite question à soumettre à votre sagacité.
J'ai une base de données (+ de 100 000 lignes et 27 colonnes) provenant d'un fichier txt.
je dois faire certains traitement sur cette base, des sommes avec critères, des moyennes, etc....
je stocke cette base dans une variable tableau (le célèbre tablo, que me jalouse josé et Mdf 😀) .
afin de simplement faire la somme d'une colonne précise, je me suis fait une fonction personnalisée, me transformant ce tableau multidimension en un tableau unidimension (ca se dit ca ?)
Mais je me demande si je ne pourrais pas simplifier et rendre plus rapide mon code, particulierement en évitant la boucle for to dans la function.
je suis donc preneur d'idée.
je joins un fichier exemple, en appuyant sur le bouton vous faites la somme de la colonne B (magique, non ? )
PHP:
Option Explicit
Option Base 1
Dim tablo
Sub test()
tablo = Range("a1").CurrentRegion
MsgBox Application.Sum(redefinitablo(2))
End Sub
Public Function redefinitablo(colonne As Byte)
Dim tablofunction() As Double
Dim i As Long
ReDim tablofunction(1 To UBound(tablo))
'**********ce que je voudrais éviter :)
For i = 1 To UBound(tablo)
tablofunction(i) = tablo(i, colonne)
Next i
'***************************************
redefinitablo = tablofunction
End Functionsalut 🙂