Bonjour à tous,
J'ai une base de données (BDD_TAB.xslx") composée de 15 colonnes et pouvant atteindre jusqu'à 25 000 lignes voir plus. La première colonne de cette base de données contient des ages.
Cette base de données me permet d'alimenter une listview reprennant l'ensemble des colonnes en fonction de l'age retenu.
Mon code est organisé de la façon suivante :
Dim tab_BDD()
derligneBDD = Workbooks("BDD_TAB.xlsx").sheets("BDD_TAB").range("A65536").end(xlup).row
Redim tab_BDD(derligne -1, 14)
with workbooks("BDD_TAB.xlsx").sheets("BDD_TAB")
for a = 1 to 15
for i = 1 to derligneBDD
tab_BDD(i-1,a-1) = .cells(i,a )
next i
next a
end with
ageretenu = range("A1")
for i = 0 to derligneBDD - 1
if tab_BDD(i,0) = ageretenu then
listview1.listitems.add , , tab_BDD(i,1)
.... (et autres colonnes en list subitems)
End if
next i
Le traitement est long aussi j'aimerai savoir si ce code peut être optimisé et si vous pourriez éventuellement m'aiguiller sur la bonne direction.
Merci beaucoup pour votre aide.
Très bonne journée à tous !!
J'ai une base de données (BDD_TAB.xslx") composée de 15 colonnes et pouvant atteindre jusqu'à 25 000 lignes voir plus. La première colonne de cette base de données contient des ages.
Cette base de données me permet d'alimenter une listview reprennant l'ensemble des colonnes en fonction de l'age retenu.
Mon code est organisé de la façon suivante :
Dim tab_BDD()
derligneBDD = Workbooks("BDD_TAB.xlsx").sheets("BDD_TAB").range("A65536").end(xlup).row
Redim tab_BDD(derligne -1, 14)
with workbooks("BDD_TAB.xlsx").sheets("BDD_TAB")
for a = 1 to 15
for i = 1 to derligneBDD
tab_BDD(i-1,a-1) = .cells(i,a )
next i
next a
end with
ageretenu = range("A1")
for i = 0 to derligneBDD - 1
if tab_BDD(i,0) = ageretenu then
listview1.listitems.add , , tab_BDD(i,1)
.... (et autres colonnes en list subitems)
End if
next i
Le traitement est long aussi j'aimerai savoir si ce code peut être optimisé et si vous pourriez éventuellement m'aiguiller sur la bonne direction.
Merci beaucoup pour votre aide.
Très bonne journée à tous !!
Dernière édition: