Discussion :

[Pepito3225]

J'ai un programme de simulation dynamique qui vient lire des entrees des certaines cellules du tableur, qui effectue les calculs correspondants et ecrit les sorties sur la meme feuille, mon programe tourne indefiniment, ce que je n'arrive pas a faire c'est que je voudrais pouvoir modifier le contenu de certaines des cellules lus par mon programe pendant que celui-ci continue de tourner et sans l'arreter par la touche Esc et le relancer.
Si quelqu'un a des idees elles seront bienvenues.

[cedric59dk]

pourquoi ne pas lancer via un bouton et l'arreter via un bouton aussi ?

[neupont]

Tu devrais essayer de mettre la commande "DoEvents" quelque part dans ta boucle.

[Pepito3225]

Ca ne marche pas car le programme continue de tourner sans me donner la main.
Je donne ci apres un exemple plus clair de ce que je n'arrive pas a faire

Code :

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

1
2
3
4
5
6
7
Sub exemp
  x=5
  Do
    x=Range("A1")
    Range("A2")=Range("A2")+x
  Loop
End Sub

Dans cet exemple, a chaque passage de la boucle la cellule A2 s'incremente de 5.
Sans interrompre la boucle je voudrais pouvoir changer la valeur de la cellule A1 (10 par exemple) pour que A2 s'incremente de 10 en 10.

Ce programme ne sert a rien mais il illustre bien mon probleme.

Merci a tous

[AlainTech]

C'est curieux, si je suis le conseil de neupont

Tu devrais essayer de mettre la commande "DoEvents" quelque part dans ta boucle.

Et en y ajoutant une gestion d'erreur, j'arrive à faire ce que tu veux:

Code :

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

1
2
3
4
5
6
7
8
9
Sub exemp()
  Dim x As Integer
  Do
    DoEvents
    On Error Resume Next
    x = Range("A1")
    Range("A2") = Range("A2") + x
  Loop
End Sub

Pense à utiliser les balises [code] lorsque tu postes du code.

[ucfoutu]

Bonjour (et un salut à AlainTech),


Attention ...

Ce genre de boucle devrait se traduire assez rapidement par une surchauffe du processeur (on devrait entendre le ventilateur de refroidissement commencer à s'énerver en moins de 2 minutes)...

[Pepito3225]

Merci, en ajoutant la gestion d'erreur ca marche comme je voulais