interrompre une boucle VB d'un clic cellule

tautaux

XLDnaute Nouveau
Bonjour à tous.
Voilà, c'est ma première participation au forum qui m'a déjà tant apporté.
Je développe un peu sous VB associé à Excel. J'aime bien imaginer des trucs et les programmer (mouvements, dessins, equation, jeux ..). Tout se passait bien j'usqu'à cette envie stupide de développer une application qui devait utiliser un chronomètre. Vous trouverez ci joint mon fichier excel avec une macro VB (ce n'était qu'un début). J'arrive à lancer le chrono, mais ne peut le remettre à zerro sans passer par la touche "esc" puis "fin de macro" ...
Comment peut on intervenir dans une boucle de cette façon?.
Le but final était de lancer le chrono et de le laisser décompter pendant que l'on entrait des chiffres dans les cellules excel.
 

Pièces jointes

  • CHRONO 2.xls
    30 KB · Affichages: 53
  • CHRONO 2.xls
    30 KB · Affichages: 55
  • CHRONO 2.xls
    30 KB · Affichages: 62

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : interrompre une boucle VB d'un clic cellule

Bonjour Tautaux et bienvenue sur le forum

je ne sais pas comment arrêter la procédure mais je remarque que ton chrono tourne au ralenti
l'affichage des centièmes c'est du "tape à l'oeil" et te ralenti la procédure
le principe des boucles imbriquées est bon mais pour le reste :mad: :mad: :mad:


à+
Philippe
.
 

tautaux

XLDnaute Nouveau
Re : interrompre une boucle VB d'un clic cellule

Bonjour à tous ... Aïe Aïe Aïe.
Bien sur, ça, j'avais remarqué que le chrono était une comptoise ...
Il n'est là que pour expliquer mon problème : comment l'arrêter en cliquant sur une cellule ?.
Enfin, si quelqu'un trouve une solution.
Merci tout de même, et aussi merci pour le "vrai" chrono du requin ... salut.
 

CBernardT

XLDnaute Barbatruc
Re : interrompre une boucle VB d'un clic cellule

Bonjour à tous,

Un essai de fonctionnement avec trois plages boutons :

1- Mise en route ;
2- Arrêt pour visualiser le temps ;
3- Remise à zéro du chrono;
 

Pièces jointes

  • CHRONO 2.xls
    32 KB · Affichages: 65
  • CHRONO 2.xls
    32 KB · Affichages: 71
  • CHRONO 2.xls
    32 KB · Affichages: 73
Dernière édition:

tautaux

XLDnaute Nouveau
Re : interrompre une boucle VB d'un clic cellule

Alors là, les gars, chapeau bas ...
Ce sont les commandes "DoEvents" et "End" qui me manquaient et qui changent tout.
Ces deux lignes ajoutées au bon endroit dans mon programme de départ ... et ça marche.
Des variantes à l'infini sont ensuite possibles comme me le montre Bernard.
Bravo et mille merci.

Pascal
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 107
Messages
2 085 354
Membres
102 872
dernier inscrit
YvanCB