Discussion :

[moimeme67]

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.
Merci pour votre support.
Voici ma macro :

Dim ok As Boolean

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Franc]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[moimeme67]

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 , cela m'est pas très clairs. Comment dans mon cas programmer cela avec des references explicites ?
Merci encore pour votre support.

[deedolith]

Merci pour le retour . Mais étant novice , 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

2) Utiliser le l'instruction With:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

3)Utiliser des variables intermédiaires:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 = ...

[moimeme67]

@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 ?

[moimeme67]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...