[VB] avec Excel : calculs vraiment lent

Version imprimable

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:

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]

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:

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

20/01/2006, 20h35
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?
20/01/2006, 20h52
plegat

Citation:

Envoyé par 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?

Depuis Excel VBA, c'est:

Code:

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?
20/01/2006, 21h05
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.
21/01/2006, 09h50
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.
21/01/2006, 12h52
ouskel'n'or

Citation:

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

Citation:

Application.ScreenUpdating=false

... avant les calculs, tu fais

Code:

Application.ScreenUpdating=true

...après :wink:
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:

Cells(NoLigne,NoCol). value = TaVariable

Pour une plage

Code:

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+
21/01/2006, 14h51
DarkVader

Citation:

Envoyé par ouskel'n'or

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 :wink:
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.
21/01/2006, 18h19
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 ?
21/01/2006, 18h51
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)
:)
22/01/2006, 16h25
SimonBrodeur

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