repercution d'une macro sur d'autre feuille involontaire

[raym1313]

bonjour a tous

j ai la feuil1 d'un classeur ou se trouve un chrono
une macro démarre mon chrono le stoppe ou le réinitialise a zéro
par le biais d'un bouton

ce chrono fonctionne tres bien

par contre et la je ne comprends pas pourquoi
lorsque je démarre mon chrono en feuil1
les heures minutes secondes s'affichent correctement


mais les heures minutes secondes s'affichent également en feuil2 et feuil3


qui peu m'expliquer pourquoi ??

amicalement
raymond

 

[Pierrot93]

Re : repercution d'une macro sur d'autre feuille involontaire

Bonsoir Raymond

essaye en remplacant :

[b5]

par :

Sheets("Feuil1").[b5]

partout dans ton code.

bonne soirée
@+

 

[raym1313]

Re : repercution d'une macro sur d'autre feuille involontaire

merci pierrot pour ta reponse rapide
mais ca ne marche pas
peu etre je ne positionne pas a l'endroit qu'il faut dans la macro
Sheets("Feuil1").[b5]
amicalement raymond

 

[Pierrot93]

Re : repercution d'une macro sur d'autre feuille involontaire

Re

remplaces tout le code par celui ci :

Public ProchainChrono
Public chrono
Sub majChrono()
 temp = chrono / 3600
 Sheets("Feuil1").[b5] = Format(temp / 24, "hh:mm:ss")
 chrono = chrono + 1
 ProchainChrono = Now + TimeValue("00:00:1")
 Application.OnTime ProchainChrono, "majChrono"
End Sub
Sub auto_close()
  On Error Resume Next
  Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub
Sub Démarre()
If Sheets("Feuil1").[b5].Value > 0 Then
Sheets("Feuil1").[b5].Value = 0
Exit Sub
End If
chrono = 0
majChrono
End Sub

@+

 

[skoobi]

Re : repercution d'une macro sur d'autre feuille involontaire

Bonsoir,

Fais les modifications en bleu:

Public ProchainChrono
Public chrono

Sub majChrono()

 temp = chrono / 3600
[COLOR=Blue][B] Sheets("Feuil1").[/B][/COLOR][b5] = Format(temp / 24, "hh:mm:ss")
 chrono = chrono + 1
 ProchainChrono = Now + TimeValue("00:00:1")
 Application.OnTime ProchainChrono, "majChrono"
End Sub

Sub auto_close()

  On Error Resume Next
  Application.OnTime ProchainChrono, Procedure:="majChrono", Schedule:=False
End Sub

Sub Démarre()

If [COLOR=Blue][B]Sheets("Feuil1").[/B][/COLOR][b5].Value > 0 Then
[B][COLOR=Blue]Sheets("Feuil1").[/COLOR][/B][b5].Value = 0
Exit Sub
End If
chrono = 0
majChrono
End Sub

Edit: oupppsss, le tigre est plus rapide que le papillon

 

[JCGL]

Re : repercution d'une macro sur d'autre feuille involontaire

Bonjour à tous,
Salut à Pierrot ,
Re à SKooby ,

Quand le Tigre va plus vite que le Papillon,
Le Raymond est content...

Pour la petite histoire : Raymond "peut", je n'ai pas dit "veut", faire tourner huit chronos en même temps.

Merci pour vos réponses à mon ami Raymond qui va mieux dormir ce soir car demain est le grand jour... et qu'il angoissait +++

Merci à la Team et Bisous à Raymond
A+ à tous

 

[raym1313]

Re : repercution d'une macro sur d'autre feuille involontaire

bonsoir a tous

franchement BRAVO felicitations pierrot ca fonctionne a merveille
je ne remercierai jamais assez JCGL qui m'a aussi beaucoup aidé
pour ce projet qui est maintenant totalement fini

merci a tous

je suis vraiment ravi d'avoir decouvert ce site car je suis passionné d'excel
et grace a vous je ne peux que progresser

amicalement raymond