Problème avec un macro / minuteur

Bonjour,
je developpe depuis peu sous excell (Office 365) des Macro ...sur la base des forums que je trouve à gauche et à droite.
Par contre là je fais face à un problème dont je ne trouve de solutions sur le net.

J'ai créé une macro qui affiche un minuteur sur un onglet. Le document excell comporte plusieurs onglets.
Mon problème est dès que je vais sur un autre onglet, la macro plante.
Si j'y insère Sheets("xy") .select, dès que je change d'onglet, je reviens automatiquement à l'onglet ou le minuteur tourne. Pas pratique pour voir les autres onglets.

Avez-vous une idée comment faire....de façon simple pour un novice. :D
Merci pour votre support.
Voici ma macro :

Dim ok As Boolean

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Minuteur() 'Sheets("Check").Select ok = True Range("D8").Value = TimeValue("00:00:00") Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour" End Sub     Sub mettre_a_jour() 'Sheets("Check").Select If ok Then Range("D8").Value = [D8] + TimeSerial(0, 0, 1) 'Range("D8").NumberFormat = "hh:mm:ss" Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour" End If   End Sub   Sub ArretCalculTps() ok = False Range("D8").Value = TimeValue("00:00:00") End Sub

---

Salut, ajoute ceci à ThisWorkbook, il devrait arrêter le minuteur quand tu quittes la feuille:

Code:

---

1 2 3 4

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) ' Appelé lorsque tu changes d'onglet Call ArretCalculTps End Sub

---

Salut,

Ton problème vient du fait que tu utilises des références implicites.
Range("D8").Value c'est implicitement ActiveWorkbook.ActiveSheet.Range("D8").Value (soit: la cellule D8 de feuille active du classeur actif).
En conséquences, lorsque tu click sur une autre feuille, la feuille active change, et par effet domino, la cellule D8 aussi.

Passe par des références explicites, et ton problème sera résolu.

Citation:

---

Envoyé par Franc

Salut, ajoute ceci à ThisWorkbook, il devrait arrêter le minuteur quand tu quittes la feuille:

Code:

---

1 2 3 4

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) ' Appelé lorsque tu changes d'onglet Call ArretCalculTps End Sub

---

---

Merci pour la réponse mais je veux que le minuteur continue de compter. meme quand je vais sur un autre onglet...:?

Citation:

---

Envoyé par deedolith

Salut,

Ton problème vient du fait que tu utilises des références implicites.
Range("D8").Value c'est implicitement ActiveWorkbook.ActiveSheet.Range("D8").Value (soit: la cellule D8 de feuille active du classeur actif).
En conséquences, lorsque tu click sur une autre feuille, la feuille active change, et par effet domino, la cellule D8 aussi.

Passe par des références explicites, et ton problème sera résolu.

---

Merci pour le retour . Mais étant novice :D , cela m'est pas très clairs. Comment dans mon cas programmer cela avec des references explicites ?
Merci encore pour votre support.

Citation:

---

Envoyé par moimeme67

Merci pour le retour . Mais étant novice :D , cela m'est pas très clairs. Comment dans mon cas programmer cela avec des references explicites ?
Merci encore pour votre support.

---

Tous d'abord, la propriété ThisWorkbook retourne une référence vers le classeur contenant le code.
Ensuite, l'objet Workbook contient une collection Worksheets (au pluriel) contient des références (de type Worksheet) vers les feuilles du classeur.
Enfin, l'objet Worksheet contient la propriété Range() permettant de référencer les cellules.

Pour référencer explicitement des cellules, il te faut référencer le classeur, la feuille et la cellule (cela s'appelle respecter la parentalité des objets), et il y a plusieurs façon de faire.
(Pour les exemples qui suivent, je suppose que l'on essaie d'atteindre la cellule "B6" de la feuille "Calcul")
1) Déréférencer le chemin complet:

Code:

---

ThisWorkbook.Worksheets("Calcul").Range("B6").Value = ...

---

C'est très barbare, et à force, c'est pénible.

2) Utiliser le l'instruction With:

Code:

---

1 2 3

With ThisWorkbook.Worksheets("Calcul") .Range("B6").Value = ... End With

---

3)Utiliser des variables intermédiaires:

Code:

---

1 2 3 4 5 6 7 8 9

Dim Wb As Excel.Workbook Set Wb = ThisWorkbook '// Reference vers le classeur   Dim Ws As Excel.Worksheet Set Ws = Wb.Worksheets("Calcul") '// Reference vers la feuille   Dim Rng As Excel.Range Set Rng = Ws.Range("B6") '// Reference vers la cellule Rng.Value = ...

---

@deedolith, merci pour l'info. Je vais essayer de m'y coller dans les prochains jours. Suis assez pris dans mon job en ce moment.
Juste une question: faut-il passer à travers les 3 étapes ou bien 1 solution sur les 3 fonctionne ?

L'un des 3, au choix.

Citation:

---

Envoyé par deedolith

L'un des 3, au choix.

---

Alors, après maintes essais et recherche jai fait ceci:
Dans ThisWorkbook j'ai inséré ce code afin que le minuteur tourne à l'ouverture du classeur.

Private Sub workbook_Open()
Call Minuteur1
End Sub

Dans un module j'ai inséré ces codes

Sub Minuteur1()
'calcul du temps passé depuis dernier enregistrement
ok = True
ThisWorkbook.Worksheets("Check").Range("D9").Value = TimeValue("00:00:00")
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour1"
End Sub
Sub mettre_a_jour1()
If ok Then
ThisWorkbook.Worksheets("Check").Range("D9").Value = [D9] + TimeSerial(0, 0, 1)
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour1"
End If
End Sub
Sub ArretCalculTps1()
' ok = False
ThisWorkbook.Worksheets("Check").Range("D9").Value = TimeValue("00:00:00")
End Sub

Dans un autre module ceci:
Sub Enregistrement_Click()
Call Enregistrement
End Sub
Sub FindePO_Click()
Call ArretCalculTps1
Call FinPO
End Sub

Le fichier me satisfait et marche nickel, tant que je reste sur l'onglet. Dès que je vais sur un autre onglet, le minuteur s'arrete et repart tout seul à zero.
En soit, cela ne me derange pas plus que cela car l'onglet principal est l'onglet "Check" et la majeur du temps les gens seront sur cet onglet.

Là ou ca coince, c'est que j'ai plusieurs fichiers (noms différents) qui utilisent les memes fonctionnalités et sont donc programmés de la meme facon !?!?!
Le lancement d'un fichier reset le minuteur de l'autre et les 2 minuteurs "fusionnent" pour donner les memes infos !?
Une action (Sub FindePO_Click() par un bouton dans un fichier pour reseter un minuteur, stoppe/reset également le minuteur de l'autre !?!?

J'ai essayé de changer le nom des macros, des fichiers, des onglets...rien ne marche.
D'où peut venir la coquille ?
Merci pour votre support.

Bonjour, quelqu'un peut m'aider sur ce point ? Je seche complètement 8O:lol:
Merci pour vos retours.