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 : 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
[/code]