Tout d'abord bonjour car suis nouveau sur le forum
commencons par le debut :
j'ai un fichier exel avec 9 feuilles qui contiennent tous un chrono ( le meme sur chaque feuille )
la macro du chrono est dans module 1.
voici la syntaxe ;
Dim ok As Boolean
Sub Demarrechrono()
ok = True
Range("c10") = TimeSerial(0, 0, 10)
Call decompte
End Sub
Sub decompte()
If ok Then
If Range("c10") = 0 Then
ok = False
Range("c10") = TimeSerial(0, 0, 0): End
End If
Range("c10") = Range("c10") - TimeSerial(0, 0, 1)
Range("c10").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub
mon probleme est que quand je lancce le chrono sur la feuille 1 tout marche bien.le decompte fini, je passe sur la feuille 2 et je lance le chrno.
et la le probleme est que quand je lance chrono feuille 2 le chrono feuille 1 se lance aussi
ma queston est :
comment dissocier cette macro afin de l'appliquer a chaque feuille séparément ?
j'espere avoir ete assez clair dans mon explication
en attente 'dune reponse de votre part .
cordialement
fichier joint afin que vus voyez le probleme
commencons par le debut :
j'ai un fichier exel avec 9 feuilles qui contiennent tous un chrono ( le meme sur chaque feuille )
la macro du chrono est dans module 1.
voici la syntaxe ;
Dim ok As Boolean
Sub Demarrechrono()
ok = True
Range("c10") = TimeSerial(0, 0, 10)
Call decompte
End Sub
Sub decompte()
If ok Then
If Range("c10") = 0 Then
ok = False
Range("c10") = TimeSerial(0, 0, 0): End
End If
Range("c10") = Range("c10") - TimeSerial(0, 0, 1)
Range("c10").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub
mon probleme est que quand je lancce le chrono sur la feuille 1 tout marche bien.le decompte fini, je passe sur la feuille 2 et je lance le chrno.
et la le probleme est que quand je lance chrono feuille 2 le chrono feuille 1 se lance aussi
ma queston est :
comment dissocier cette macro afin de l'appliquer a chaque feuille séparément ?
j'espere avoir ete assez clair dans mon explication
en attente 'dune reponse de votre part .
cordialement
fichier joint afin que vus voyez le probleme
Pièces jointes
Dernière édition: