Bonjour tout le monde,
Voici un morceau de mon code:
Donc là j'ouvre un fichier excel. Je veux ensuite récupérer certaines valeurs de ce fichier, et les ajouter à une liste de points de la dll Zedgraph, permettant de faire des graphiques.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 excelFile = CommonDialog1Open.FileName : appXls = New Excel.Application : appXls.Visible = False book = appXls.Workbooks.Open(excelFile) rowCount = book.Worksheets("données").Range("A65536").End(Excel.XlDirection.xlUp).Row
Le soucis est que ça prend énormément de temps ! pour 11000 lignes, ça prend quelque chose comme 6 minutes sur mon portable.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 For I = 14 To rowCount pointsCourbeY1.Add(book.Worksheets("données").Cells(I, "A").Value, book.Worksheets("données").Cells(I, "B").Value) pointsCourbeY2.Add(book.Worksheets("données").Cells(I, "A").Value, book.Worksheets("données").Cells(I, "E").Value) Next
Cependant, si je fais
Ca se fait en moins d'une seconde. J'imagine que ça vient de la recherche de la valeur dans le fichier excel.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 For I = 14 To 11000 pointsCourbeY2.Add(1, 1) pointsCourbeY1.Add(1, 1) Next
Bref ! je cherche un moyen de récupérer ces valeurs sans que ça prenne trois heures. Je viens donc ici voir si vous auriez des idées qui pourraient m'aider ?
Merci de m'avoir lu![]()
Partager