Discussion :

[Sophiie]

Coucou à tous !

Avant d’aller au vif du sujet, j’aimerais profiter de l’occasion pour remercier toutes les personnes qui contribuent, ou rédigent des sujets, supports techniques, etc.
Grace à cela, je suis en quasi roue libre en ce qui concerne la programmation VBA sous excel, et le niveau qui était le miens il y a 3 mois n’a plus rien à voir avec ce que mes connaissances me permettent de faire aujourd’hui.

Il n’empêche que (et vous aurez noté la contradiction ), je viens solliciter de l’aide pour quelque chose que je ne parviens pas à trouver dans toute ma documentation.

J’ai un script qui traite des calculs et qui renvoie les résultats dans des cellules. J’ai divisé mon écran en 2, avec d’un coté l’affichage des résultats et de l’autre une partie laissée libre dans laquelle je voudrais renvoyer des informations de traitement en temps réel. Un peu comme les ordinateurs des années 70’s qui affichaient en vert sur fond noir qu’ils traitaient des opérations de calculs en temps réel (en somme je voudrais ajouter un petit coté « vintage » à mon script).

Le problème étant que les bécanes d’aujourd’hui font tourner les programmes à toutes allure, et que si je renvoie un :

Code :

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

 cells(12,30).value = « Calcul Electrique réalisé » ‘je lance l’instruction de traitement dans le même temps

puis :

Code :

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

cells(12,30).value = « Calcul Chimique réalisé » ‘idem

Et bien l’affichage n’a pas le temps d’être lu par l’œil humain.

Ma question est la suivante :

"Il y a t-il une façon de contrôler la vitesse d’affichage de l’écriture à l’écran ? Quitte à ralentir l’exécution de mon programme ? (il va de soit que le rafraichissement de l’écran est activé)".

Merci pour vos avis, idées et autres !

Sophie

[mercatog]

Étrange demande mais bon
Regarde l'aide sur application.Wait

Exemple

Code :

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

1
2
3
Cells(1, 1) = "Opération 1"
Application.Wait Now + TimeSerial(0, 0, 1)
Cells(1, 1) = "Opération 2"

Une seconde d'attente entre l'exécution de la ligne 1 et la ligne 3 du code

[Sophiie]

Je n'avais pas pensée à cette solution du tout

On est d'accord pour dire que c'est purement du domaine de l'artifice mais bon, ça ajoute un peu de cachet à une application.

Merci pour le coup de main en tout cas (je passe le post en résolu).
Sophie.