Déclancher plusisieurs macro en parallèle

[pierre123]

Bonjour à tous,

Voici une macro de décomptage:

Sub prison151()
Dim d As Single, i As Integer
Range("B6").Value = 15
d = Timer
For i = 15 To 1 Step -1
Do While Timer < d + 1
DoEvents
Loop
Range("B6").Value = Range("B6").Value - 1
d = Timer
Next i
End Sub

Elle fonctionne bien, mais je souhaite créer plusieurs fois cette macro et la faire déclencher indépendamment l'une de l'autre.
Pour le moment, lorsque l'une fonctionne, l'autre est bloquée.

Merci pour votre aide

Pierre

 

[pierre123]

Re : Déclancher plusisieurs macro en parallèle

Voici le fichier Excel

 

[Pierrot93]

Re : Déclancher plusisieurs macro en parallèle

Bonjour,

voir aussi ici :
https://www.excel-downloads.com/threads/plusieurs-macros-en-parallele.178451/

bonne journée
@+

 

[herve62]

Re : Déclancher plusisieurs macro en parallèle

Bonjour
Bien répondu Pierrot !!
Sinon , un PC n'est pas multi_processeur mais 1 seul et Excel se sert du processeur pour travailler donc si l'on fait appel au timer
c'est du chacun son tour
On le voit bien dans ton fichier , tu peux demarrer la 2eme mais la 1ere s'arrête
De plus si tu demarres la 3eme ca plante EXcel ( conflit Mémoire et Pile du micro_process)

 

[pierre123]

Re : Déclancher plusisieurs macro en parallèle

Ok merci, , donc ya pas de solution sur Excel?
Pierre

 

[phlaurent55]

Re : Déclancher plusisieurs macro en parallèle

Bonjour à tous

Ok merci, , donc ya pas de solution sur Excel?
Pierre

je l'ai postée sur l'autre fil
https://www.excel-downloads.com/threads/plusieurs-macros-en-parallele.178451/

à+
Philippe

 

[job75]

Re : Déclancher plusisieurs macro en parallèle

Bonjour le fil,

Ici 4 macros indépendantes (dans Module3) relancées par Application.OnTime.

Seule la feuille 15 sec a été traitée.

Nota : si l'on maintient le clic sur un bouton les macros restent en attente...

A+

 

[pierre123]

Re : Déclancher plusisieurs macro en parallèle

Merci beaucoup pour ce programme,
Pierre

 

[pierre123]

Re : Déclancher plusisieurs macro en parallèle

Bonjour

Je reprends le fil de ce programme.
Je voudrai pouvoir saisir dans les cellules en même temps que le décompteur tourne. Est ci possible?
Pour le moment, quand je lance un compteur de temps, si je saisie dans une cellule un numéro de dossard, le compteur s'arrête.

Merci pour votre aide.
Pierre

Regarde la pièce jointe prison(2).xls