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

Version imprimable

31/05/2016, 10h59
nonesofar

1 pièce(s) jointe(s)

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

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 ?? :D

Bonne journée à tous.

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:

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

31/05/2016, 11h29
jeanmidudu

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,
31/05/2016, 11h36
nonesofar

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.
31/05/2016, 11h44
jeanmidudu

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,
31/05/2016, 13h30
nonesofar

1 pièce(s) jointe(s)

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:

=SI(C8<C9;"ok";"nok")

Envoyer l'email lorsque la valeur passe à "ok".

Réalisations : Calcul automatique de l'heure en

Code:

"A1"

Voila en gros ou j'en suis et ou je souhaite aller.

Merci d'avance,

Cordialement.
31/05/2016, 15h50
halaster08

Bonjour,

Pour lancer la maccro quand le controle change je te conseille d'aller voir worksheet_change sur ce tuto:http://silkyroad.developpez.com/VBA/...Feuille/#LII-E

Bonjour halaster,

Merci pour ton aide, j'ai bien avancé sur l'actualisation des formules avec un rafraîchissement toutes les 10 secondes.

J'ai plus qu'à bosser sur la gestion de l’événement.

Avce ce code
Code:

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 Option Explicit Public dTime As Date Sub ValueStore() Dim dTime As Date Dim currentSelection As Range 'zone de formule à rafraichir Range("C10", "I10").Calculate Call StartTimer End Sub Sub StartTimer() dTime = Now + TimeValue("00:00:10") Application.OnTime dTime, "ValueStore", Schedule:=True End Sub Sub StopTimer() On Error Resume Next Application.OnTime dTime, "ValueStore", Schedule:=False End Sub Sub Bouton1_Cliquer() Call StartTimer End Sub Sub Bouton2_Cliquer() Call StopTimer End Sub
Le seul truc que je me demande est si le fichier n'est pas activé, c'est à dire ouvert mais pas activé.

Est-ce que l’événement va être pris en charge?

Bien cordialement.

31/05/2016, 16h14
halaster08

N'ayant jamais pratiqué ce genre de manoeuvre je ne peux répondre a ta question, mais je te conseille vivement de faire un classeur test pour être sur.
31/05/2016, 16h58
nonesofar
Merci,

Oui oui j'ai un fichier test :D.

Sinon à tout hasard sur les événements. Ce type de code ci-dessous fonctionne très bien lorsque l'on va cliquer sur la cellule pour changer la valeur. En revanche si la valeur change par formule ou bien lors du rafraîchissement. Je ne connais pas de code qui fonctionne dans ce cas. :calim2:
Code:

1 2 3 4 5 6 Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then MsgBox "coucou" End If End Sub
Merci d'avance,

Cordialement.

Bon google est mon amis j'ai trouvé un code qui permet de passer au-dessus du problème que j'avais.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public ValPrec
 
Private Sub Worksheet_Calculate()
  Vérif
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
  Vérif
End Sub
 
Private Sub Vérif()
  If VarType(Range("A1")) = VarType(ValPrec) Then _
    If ValPrec = Range("A1") Then Exit Sub
  MsgBox "Cellule A1 passe de " & CStr(ValPrec) & _
    " vers " & CStr(Range("A1"))
  ValPrec = Range("A1")
End Sub

Code:

1
2
3
4
 
Private Sub Workbook_Open()
  Feuil1.ValPrec = Feuil1.Range("A1")
End Sub