Discussion :

[PedroBD]

Bonjour,

J'ai programmé en VBA un compteur qui se décompose sur 3 cellules:

0000 0000 0000

H1 H2 H3

Pour chaque occurrence de ce compteur, je fais des tests dans d'autres cellules, et pour chacun de ces tests, j'affiche V ou F dans d'autres cellules en fonction du résultat.

Pb: Le compteur met trop de temps, imaginez le temps qu'il me faudrait pour aller à 9999 9999 9999!

Comment faire pour l'accélérer. L'idéal serait qu'il puisse atteindre la valeur finale (9999 9999 9999) dans la journée. Je pense que c'est de la vitesse du proc que cela dépend, mais plutôt du temps d'éxécution d'Excel!

Est-ce qu'il faut que je passe à un autre langage? Le truc c'est que je voudrais conserver mon tableau Excel!

Merci de votre aide

P.S: Je débute en VBA, si vous pouviez me donner des détails dans votre réponse, je vous remercie!

[random]

si tu pars ainsi ce n'est pas simplifiable
il y a 10^12 combinaisons
ce qui est assez lourd

deux solutions
faire monter tes cellules dans un array et travailler sur cet array ce qui sera plus rapide en masquant excel

mais tu dois pouvoir trouver mieux
il y a certainement des solutions pour trouver les valeurs correctes par programmation linéaire par exemple

[PedroBD]

si tu pars ainsi ce n'est pas simplifiable
il y a 10^12 combinaisons
ce qui est assez lourd

Merci de ta réponse

deux solutions
faire monter tes cellules dans un array et travailler sur cet array ce qui sera plus rapide en masquant excel

Je suis pas un pro du VBA, comment tu fais pour monter des cellules dans un array?

mais tu dois pouvoir trouver mieux
il y a certainement des solutions pour trouver les valeurs correctes par programmation linéaire par exemple

Tu veux dire importer un objet ActiveX ou autre qui aurait été programmé séparémment?

[Blunet]

Salut Pedro,
Effectivement la vitesse de l'exécution de ta macro va dépendre de la mémoire de ta machine RAM.
Je suppose que tu utilises une structure répétitive comme les boucles... Alors tu comprends qu'en changeant simplement d'environnement le problème reste le même car, il s'agit de la machine et non des spécificités d'un langage sur un autre.

Ciao

[PedroBD]

Salut Pedro,
Effectivement la vitesse de l'exécution de ta macro va dépendre de la mémoire de ta machine RAM.
Je suppose que tu utilises une structure répétitive comme les boucles... Alors tu comprends qu'en changeant simplement d'environnement le problème reste le même car, il s'agit de la machine et non des spécificités d'un langage sur un autre.

Ciao

En fait j'ai testé le truc sur un bi proc et ça fait la même chose; mais c'est vrai que la machine avait que 512 de RAM. Tu penses que sur une machine qui a 1Go ça peut aller plus vite?

[Geoffray]

Bonjour,

Je ne sais pas si tu as besoin de voir le chrono évoluer à l'écran ou non si tel n'est pas le cas je te conseille de placer ce code au début de ton code :

Code :

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

1
2
 
Application.ScreenUpdating = False

puis à la fin de ta macro

Code :

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

1
2
 
Application.ScreenUpdating = True

Pour te donner un exemple cette macro met environ 1 seconde contre 10 secondes si je ne bloque pas le rafraichissement de l'écran.

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
 
Sub test()
 
 
Application.ScreenUpdating = False
 
 
TimeDebut = Time
 
For l = 1 To 30000
     Range("A1").Value = l
Next l
 
TimeFin = Time
 
[D1] = TimeFin - TimeDebut
 
Application.ScreenUpdating = True
 
End Sub

Geoffray

[PedroBD]

Bonjour,

Je ne sais pas si tu as besoin de voir le chrono évoluer à l'écran ou non si tel n'est pas le cas je te conseille de placer ce code au début de ton code :

Code :

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

1
2
 
Application.ScreenUpdating = False

puis à la fin de ta macro

Code :

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

1
2
 
Application.ScreenUpdating = True

Pour te donner un exemple cette macro met environ 1 seconde contre 10 secondes si je ne bloque pas le rafraichissement de l'écran.

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
 
Sub test()
 
 
Application.ScreenUpdating = False
 
 
TimeDebut = Time
 
For l = 1 To 30000
     Range("A1").Value = l
Next l
 
TimeFin = Time
 
[D1] = TimeFin - TimeDebut
 
Application.ScreenUpdating = True
 
End Sub

Geoffray

Merci du truc, je vais tester tout de suite!

[Commodore]

Avec cette solution tu ne verras pas ton compteur s'incrémenter. d'ailleurs, ton écran sera gelé jusqu'à la ligne

Code :

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

Application.ScreenUpdating = True

.

Donc sois bien sûr que ton code fonctionne avant de faire ça.

Juste au cas où... (plantage?)
Tu peux faire du "pas à pas" dans ton prog en appuyant sur F8 pour chaque ligne de code à éxécuter. Si ton prog plante utilise F8 sur la ligne

Code :

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

Application.ScreenUpdating = True

pour réactiver le rafraichissement de l'écran.

Bon courage

[Geoffray]

...., utiliser cells plutôt que range...

Je savais pas. Ca accélère vraiment le code ?

[plegat]

Je savais pas. Ca accélère vraiment le code ?

Oui.
Je ne saurais te dire de combien, j'avais fait le test il y a quelques temps (suite à une remarque de Bidou dans un autre post), et on gagnait un peu.
Ca s'apprécie surtout sur les boucles nombreuses, avec l'itération sur la ligne et/ou la colonne du cells... en prime, c'est plus simple à utiliser, ça évite de magouiller un range ou un range + offset !

[PedroBD]

Oui.
Je ne saurais te dire de combien, j'avais fait le test il y a quelques temps (suite à une remarque de Bidou dans un autre post), et on gagnait un peu.
Ca s'apprécie surtout sur les boucles nombreuses, avec l'itération sur la ligne et/ou la colonne du cells... en prime, c'est plus simple à utiliser, ça évite de magouiller un range ou un range + offset !

Ca vous dit pas que je vous envoie le fichier du compteur sur un mail pv? Vous pourrez me dire plus facilement ce que vous en pensez?