Allo, c'est encore moi. Je dois calculer l'accéleration et la force G avec des données déjà inscrites dans une feuille excel. Tout marche bien sauf que c'est vraiment lent. Je trouve cela long avec 500 données alors ne n'imagine pas avec le maximum de la mémoire de ma boite noire (31500 données).
Pouvez-vous me dire ce qui ne va pas?
Voici un morceau de mon code où j'écrit directement dans les cellules:
[/code]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 For CellN = 4 To (Colonne.Rows.Count + 4) RawDATA = XLWorkbook.Sheets("Data").Range("B" & CellN).Value If IsNumeric(RawDATA) = False Then PartNb = Val(RawDATA) 'Créer une nouvelle série mais j'ai pas fini cette partie là Else 'PulseDATA = 5 * Val(RawDATA) XLWorkbook.Sheets("Data").Range("H" & CellN).Value = 5 * XLWorkbook.Sheets("Data").Range("D" & CellN).Value 'ForceDATA = (((PulseDATA / 10) - 500) * 8) / 1000 XLWorkbook.Sheets("Data").Range("L" & CellN).Value = (((XLWorkbook.Sheets("Data").Range("H" & CellN).Value / 10) - 500) * 8) / 1000 'AccelDATA = 9.805 * ForceDATA XLWorkbook.Sheets("Data").Range("P" & CellN).Value = 9.805 * XLWorkbook.Sheets("Data").Range("L" & CellN).Value End If Next
Partager