Discussion :

[SimonBrodeur]

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]

[plegat]

Salut,

Comme ça, à froid, je te conseillerais tout d'abord d'éviter les manipulation de données dans ta feuille au maximum.
Dans ton code, tu affectes une valeur à une cellule, et tu vas lire la valeur de cette même cellule pour l'utiliser dans le calcul à la ligne suivante.
Utilise plutôt une variable pour placer cette valeur, et utilises la variable pour le calcul. Ca t'allège le code d'une affection à partir de données sur la feuille, ça ne peut qu'être bénéfique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
PulseDATA = 5 * Val(RawDATA)
ForceDATA = (((PulseDATA / 10) - 500) * 8) / 1000
AccelDATA = 9.805 * ForceDATA
 
XLWorkbook.Sheets("Data").Range("H" & CellN).Value = PulseDATA 
XLWorkbook.Sheets("Data").Range("L" & CellN).Value = ForceDATA 
XLWorkbook.Sheets("Data").Range("P" & CellN).Value = AccelDATA

Ensuite, je crois me souvenir que la fonction Cells est plus rapide que la fonction Range.

Dernièrement, si tu travailles avec l'éditeur VBA d'excel, ferme-le! J'ai remarqué que sur certaines macro, ça faisait gagner un temps non négligeable.

Et au cas où tu ne l'aurais pas fait, désactive le rafraichissement de l'écran.

Vu que ce ne sont pas des manipulations trop compliquées, ta macro devrait tout de même être assez rapide...

[edit]correction d'un Cell en Cells

[SimonBrodeur]

Comment je fait pour désactiver le rafraîchissement ? Est-ce la fonction visible = False ?

Et à vrai dire, je n'est pas vraiment fait de macro dans Excel lui-même, je fait tout à partir d'un exécutable (.exe), programmer avec VB 6.0 . Est-ce que cela peut jouer sur la vitesse de calcul?

[plegat]

Comment je fait pour désactiver le rafraîchissement ? Est-ce la fonction visible = False ?

Et à vrai dire, je n'est pas vraiment fait de macro dans Excel lui-même, je fait tout à partir d'un exécutable (.exe), programmer avec VB 6.0 . Est-ce que cela peut jouer sur la vitesse de calcul?

Depuis Excel VBA, c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating=false

mais depuis une appli VB6, je ne sais pas comment le mettre en oeuvre... Déjà, est-ce utile? As-tu le visuel sur le fichier excel?

[SimonBrodeur]

Je peut utiliser cette commande comme tu le fait dans une macro sauf que moi j'affiche la feuille (visible = true) quand tout les calculs sont terminer.

[DarkVader]

Quelquesoit le but but à atteindre, afin d 'optimiser le code
il est préférable de travailler sur des tableaux
puis réaffecter celui-ci à la feuille Xcel.

[ouskel'n'or]

Je peut utiliser cette commande comme tu le fait dans une macro sauf que moi j'affiche la feuille (visible = true) quand tout les calculs sont terminer.

Pour mettre à jour l'affichage, puisque tu as fais

Application.ScreenUpdating=false

... avant les calculs, tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating=true

...après
En l'occurence, comme tu ne sélectionnes pas les cellules, je ne pense pas que cela ait beaucoup d'incidence sur la lenteur de ta routine.
Par contre, utilise plutôt Cells que Range
Pour une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NoLigne,NoCol). value = TaVariable

Pour une plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(NoLigne,NoCol),Cells(NoLigne2,NoCol2)).(Ce que tu veux)

Enfin, je pense aussi qu'un tableau déclaré irait plus vite pour faire ce que tu fais.

A toutes fins utiles

A+

[DarkVader]

En l'occurence, comme tu ne sélectionnes pas les cellules, je ne pense pas que cela ait beaucoup d'incidence sur la lenteur de ta routine.

Faire une Selection est une énormité - encore heureux qu'il n'en fasse pas - c'est tout juste bon pour les macros automatiques
sinon, à partir du moment que l'on écrit dans la feuille, il y a perte de temps d'où l'intérêt de copier tout le résultat en une seule opération.

L'autre perte de temps importante est liée au recalcul de la feuille et le screenupdating ne résoud pas le problème
=> il est donc parfois judicieux de forcer le calcul en manuel avant copie des données puis après la dernière copie restaurer le calcul automatique
ainsi la feuille ne sera recalculée qu'une seule fois.

[SimonBrodeur]

Je n'est pas beaucoup d'expérience et je n'ai jamais travaillé avec des tableau "virtuel". Toutefois, j'ai un nombre assez grand de données et le tableau devrait être lui aussi assez grand (9 x 31500). Est-ce que VB pourra le supporter ? Si oui, après que j'ai tout calculer, il me suffit juste de copier le tableau vers excel et tout se fait en une opération ?

[jmfmarques]

je vois que les autres (pros VBA) ne sont pas en ligne.

Da,s l'aide e, ligne :

1) Array semble ne pas avoir de difficultés à gérer 9, 31500
2) jettes un coup d'oeil dans l'aide en ligne d'excel à la rubrique Utilisation de tableaux dans Visual Basic : tu y trouveras, je pense, ta réponse en ce qui concerne tant l'alimentation d'un array à partir d'excel que l'alimentation de feuilles à partir d'un array.

Je pense que tu t'orientes vers la bonne solution (cacul dans un tableau puis envoi vers Excel me parait plus agile)

[SimonBrodeur]

J'ai enfin réussi avec un tableau virutel est cela est quasi instantané, merci pour l'aide...