Lancer macro si valeur de la cellule change en fonction de l'heure

**nonesofar** · 31/05/2016, 10h59

Bonjour developpez.net,

Je souhaite savoir si il est possible de déclencher une macro lorsque l'heure change.

En effet dans le petit fichier joint, je souhaite envoyer un email si l'heure à l'instant T est différente de l'heure de départ estimée du travailleur !

J'ai fait une simple formule, si la valeur passe à "ok" un email doit partir.

Pour la partie email j'ai déjà un code, je veux juste savoir si sans intervention de l’utilisateur excel va pouvoir changer l'heure automatiquement et détecter que le test est passé à "nok" pour envoyer l'email?

J’espère avoir était clair ??

Bonne journée à tous.

**nonesofar** · 31/05/2016, 11h22

Re,

Alors j'ai déjà trouvé comment avoir une horloge automatique en vba avec ce code qui fonctionne. Il reste à définir l’événement lorsque le test passe sur "ok" pour envoyer l'email.

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 SchedRecalc As Date
 
Sub Recalc()
 
With Sheet1.Range("A1")
 
.Value = Format(Time, "hh:mm:ss AM/PM")
 
End With
 
Call SetTime
 
End Sub 
 
Sub SetTime()
 
SchedRecalc = Now + TimeValue("00:00:01")
 
Application.OnTime SchedRecalc, "Recalc"
 
End Sub 
 
Sub Disable()
 
On Error Resume Next
 
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
 
End Sub

**jeanmidudu** · 31/05/2016, 11h29

Tu aurais peut-être plus de réponses en suivant une règle simple de ce forum :
- Eviter au maximum de mettre des fichiers (surtout contenant des macros)
- Utiliser les balises [code] si tu veux présenter du code (comme lors de ton second message)

Cdt,

**nonesofar** · 31/05/2016, 11h36

Bonjour,

Merci jeanmidudu pour ta réponse.

Sauf erreur mon fichier ne contient pas de macro pour le premier, il est juste en xlsm sans aucun code !!

J'ai justement bien utilisé les balises code pour mon deuxième message!!

Il faut que je puisse actualiser automatique les formules de mon fichier pour tester si l'heure est différente.

Cordialement bonne journée.

**jeanmidudu** · 31/05/2016, 11h44

Tu m'as mal compris, mais bon, je ne me suis peut-être pas expliqué le plus simplement du monde non plus.

Pour ce qui est des fichiers, le simple fait de devoir télécharger un fichier est source de danger. Qui plus est, le tien a l'extension .xlsm, et même s'il ne contient aucun code, nous n'avons aucun moyen de le savoir. Si tu souhaites nous montrer ton fichier, utilise alors plutôt "insérer une image" dans tes messages, avec une copie d'écran.

Pour la deuxième partie, c'était dans le cas ou ton fichier contenait du code, et si tu relis mon précédent message, tu verras que justement ton deuxième message est un très bon exemple de ce qu'il faut faire.

Enfin, concernant ton problème, maintenant que tu possèdes une partie de code, peux-tu expliquer clairement ce que tu veux à partir de là.

Cdt,

**nonesofar** · 31/05/2016, 13h30

D'accord jeanmidudu, pas de soucis je ferais attention la prochaine fois

.

En résumé : Je souhaite déclencher l'envoi d'un email lorsque la valeur de la cellule passe à "ok". Voir capture d'ecran.

Deux contraintes : actualiser la formule qui calcule le "ok" automatiquement il s'agit juste d'une formule

Code :

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