Discussion :

[didiflo]

bonjour
voila j'aimerais executer une macro mais pas par heure de decompte comme stipuler en haut mais par rapport a une cellule
c'est a dire que je rentre l'heure dans la cellule et lorsque l'heure arrive a l'heure de la cellule la macro s'execute
j'ai bien copier ce code mais je suis obliger de rentrer dans le code pour changer l'heure

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
23
24
25
26
27
28
29
30
 
 
Dim bstop As Boolean
Dim HeureProchainAppel
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 bstop = True
 HorlogeEnc3
End Sub
 
Private Sub Workbook_Open()
 HorlogeEnc3
End Sub
 
Sub HorlogeEnc3()
If bstop = True Then
 'Annuler le paramétrage du OnTime programmé précédemment.
 Application.OnTime EarliestTime:=HeureProchainAppel, _
    Procedure:="ThisWorkbook.HorlogeEnc3", Schedule:=False
    Exit Sub
End If
 
  Sheets("feuil2").Range("A18").Value = Format(Now, "HH:MM:SS")
 
'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnc3", False
Application.OnTime TimeValue("14:13:00"), "Macro1"
Application.OnTime TimeValue("14:13:03"), "Macro2"
End Sub

,mais je voudrais ne pas rentrer dans le code mais que le code s'execute par rapport a l'heure de la cellule feuille2 cellule A 18 plus la macro2 apres 3 secondes
merci de votre aide

[Philippe Tulliez]

Bonjour,

Admettons que tu veuilles enregistrer l'heure à laquelle la procédure MaMacro doit s'enclencher dans la cellule B2 d'une feuille.
Code à placer dans le module de la feuille où la cellule se trouve

Code :

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

1
2
3
4
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$1" Then Application.OnTime Target, "MaMacro"
End Sub

Code à placer dans un module quelconque

Code :

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

1
2
3
Sub maMacro()
 MsgBox "Hello, il est " & Time
End Sub

[didiflo]

bonjour
merci de la reponse
mais c'est pas ce que je demande
voila j'ai une cellule qui affiche l'heure reel
et je voudrais que si la cellule B18 est la meme heure que l'heure reel la macro ce declenche