Vitesse d'execution

[Michel_ja]

Petite modiff et gde conséquences

Bonjour à tous. J'ai une petite macro "Majcel" dont la vitesse d'execution est commandée par une deuxième macro "Compteur". Au début le code de Majcell n'avait pas la boucle "For / Next" et commençait directement par i=... et cette macro tenait compte du "Compteur". Depuis que j'ai la boucle "For / Next" ce n'est plus le cas. Savez-vous pourquoi ? J'ai rajouté "For / Next" car je ne voulais faire commencer la boucle à un endroit précis et non recommencer à chaque fois l'ensemble de la boucle. Merci d'avance.

Sub Compteur()
temps = Now + TimeValue("00:00:6") 'Ici 6 secondes
Application.OnTime temps, "MajCel"
End Sub

Sub Majcel()
For i = 500 To 1525
i = i + 1 'i par défaut
If i = 1525 Then i = 500
Cells(51344, 5) = Sheets("Countries").Cells(i, 4)
Compteur
Next i
End Sub

 

[ROGER2327]

Re : Vitesse d'execution

Bonjour Michel_ja

Essayez de remplacer votre procédure Compteur par celle-ci :

Sub Compteur()
   Application.Wait Now + TimeValue("00:00:06")
End Sub

Bonne journée.
ROGER2327

 

[Michel_ja]

Re : Vitesse d'execution

Merci Roger pour ton aide. En effet le défilement a été ralenti mais le souci que j'ai maintenant c'est que la macro est toujours entrain de tourner (le sablier n'arrête pas) si bien que je n'ai pas la possibilité d'appuyer sur un bouton que j'ai créer pour faire une pause dans la macro !

 

[ROGER2327]

Re : Vitesse d'execution

Re...

(...) le défilement a été ralenti mais le souci que j'ai maintenant c'est que la macro est toujours entrain de tourner (le sablier n'arrête pas) si bien que je n'ai pas la possibilité d'appuyer sur un bouton que j'ai créer pour faire une pause dans la macro ! (...)

C'est sûr ! Ma réponse concernait la demande :

J'ai une petite macro "Majcel" dont la vitesse d'execution est commandée par une deuxième macro "Compteur".

dans laquelle aucune référence à la possibilité d'appuyer sur un bouton que j'ai créer pour faire une pause dans la macro !. On gagnerait du temps si vous disiez tout sur votre demande...
A suivre, donc !​

ROGER2327

 

[Michel_ja]

Re : Vitesse d'execution

Désolé mais je ne savais pas que cela avait son importance. En fait, vu que j'ai une boucle de 1555 lignes excel, voir plus, j'ai voulu ajouter un bouton pour faire une pause "pipi" par exemple. Je dois rester devant mon écran pour voir l'impact du changement de ligne sur un graphique. J'ai donc ajouter le code suivant pour cette pause :
Sub Temporisation()
MsgBox "Démarrage de la tempo après appui sur OK"
Sleep 2000 ' pause de 2 secondes
MsgBox "Affichage après la tempo"
End Sub
Mais là le sablier n'arrête pas de tourner. Je n'ai rien à caché 🙂