(Evénement) Afficher une Alerte quand Heure now = Heure dans cases

[Skqgent]

(Evénement) Afficher une Alerte quand Heure now = Heure dans cellules

Bonjour a tous,
Pour mon travail je cherche a me créer une alerte pour mes rendez vous
J'ai dans une colonne mes rdv et dans l'autre les heures de Rdv correspondantes

Lundi 20H00 j'ai un rdv avec AA, si date/heure "now" passe sur date de rdv, je voudrais une alerte messagebox un peu comme ca : Alerte 20h00 !! Client AA
et une buttton ok pour valider la prise en compte de l'alerte

Voila merci d'avance pour votre aide

A bientot

Skq

 

[MJ13]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour,

Il faut normalemnt passer par ontime, fais une recherche sur le forum.

 

[Skqgent]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour MJ13,

sur le forum j'ai pu trouver pas mal de code comme Application.OnTime TimeValue ("date demandée") mais dans mon cas je peux avoir de 5 a 20 horaires dans la journée pour les rdv

quelque chose peut être comme Application.OnTime TimeValue (Columns"C:C")

ou if nowtime = Application.OnTime TimeValue (Columns"C:C") then MsgBox ( "RDV AA"

 

[MJ13]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour,

Je n'ai jamais fait avec plus d'un ontime. Je pense qu'il faut déjà testé avec 2 cellules puis le code des autres pourra être adapté.

 

[wilfried_42]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour à tous

une facon un peu plus simple, dans un module standard

dim drapeau as boolean
sub chrono()
     if drapeau = true then
         Application.ontime now + timevalue("00:00:30"), "chrono" ' toutes les 30 secondes
     end if
     Sheets("RDV").range("A1").value = time
end sub

public function RDVmsg(Message as string) as boolean

         application.volatile
         msgbox message
         RDVmsg = true

end function

dans la feuille :
colonne D mettre formule :

=si($A$1>=C2;RDVmsg("Attention" & vbcrlf & A2 & vbcrlf & B2;faux)

pour completer le tout :
dans workbook (procedure Workbook_open)

drapeau = true :call chrono

procedure beforeclose

drapeau = false :call chrono

Edit : fait à main levée, non testé et à adapter

 

[Brigitte]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour,

Une petite incruste dans ce fil pour en saluer les intervenants mais aussi pour dire que bientôt, wil et nico (skqgent) vont pouvoir en discuter en vrai, vivement la rencontre xld.

Bises à tous.

 

[Skqgent]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour Wilfried_42, merci pour ta réponse
J'ai adapté les différents codes sur mon tableau et pour presque tout marche tres bien

Par contre j'ai quelques difficultés a finaliser le projet :

Je met le tableau avec le nouveau code et les ptites choses qui pourraient vraiment le rendre viable :

Ps : Coucou Brigitte =)

Merci d'avance à nouveau =)

 

[MJ13]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour à tous

Voici une solution avec multiple timer.

Appuyer sur F10 pour arrêter le Timer.

 

[wilfried_42]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

re:

j'ai regardé ton classeur, tes horraires sont saisis : 12h15, de l'alphabetique

le format horaire se saisit : 12:15, si tu veux le h, tu y places un format personalisé : hh"h"mm (menu Format / cellule)

je n'ai pas fait l'essai, mais au lieu de mettre à la seconde, met le 15 secondes tu n'as surement pas d'appel à faire à la seconde pres

la formule, j'ai mis > et non = car il est difficile de gerer à la seconde pret, si tu veux une appreciation dans les 15 secondes, tu changes la formule

=si(A1>monheure;si(A1<monheure+("00:01:00" *1);messheure;"");"")

tu auras 4 message dans la minute qui suit le declenchement

 

[Skqgent]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour MJ13 et Wilfried, merci pour vos réponses

Mj13 : J'ai beaucoup de mal a adapté ton codage sur mon tableau, j'essaie de trouver les lignes de code qui pourraient me servir mais c'est tellement complexe ='(

Wil : Dans ma colonne horaire (H) si je tape 13:30 (heure de mon appel ou réapel) cela devient 00/01/1900 13:30:00, donc il ne pourra jamais trouver d'équivalence avec l'heure du jour et donc pas de RDVmsg ='(

J'ai loupé quelque chose ?

 

[MJ13]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour Skqgent

Euh complexe, non, je dirai basique!

 

[wilfried_42]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

re:

l'heure et le jour en excel, n'existe pas reellement, une date est pour excel un nombre de jour passé depuis le 1er janvier 1900, le nombre d'heure en est la decimale heures /24 donne la partie decimale d'une date

s'il t'affiche 00/01/1900 13:30, c'est que ton format n'est pas bon, mais la saisie est correcte

dans mon precedent post, je t'ai dit de modifier le format (Menu Format / cellule)

 

[MJ13]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Bonjour Wilfried.

J'ai regardé le fichier de Skqgent sur la base de tes codes. Bravo pour "fait à main levée, non testé et à adapter ".

Par contre pour le timer, est-ce que cela ne va pas utiliser le processeur plus souvent par rapport au timer. Et ne peut on pas prendre le temps pour déclencher sur l'horloge interne?

 

[wilfried_42]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

salut michel


je suis d'accord, c'est pour cela que j'indique toutes 15 secondes plutot que toutes les secondes

une formule volatile =maintenant() ne peut fonctionner, si on ne touche pas à l'ordi, les formule ne se recalculent pas

et que se passe t il lors de la mise en veille de l'ordi ?

perso, je ne vois pas d'autre possibilité que l'utilisation du timer que l'on peut associer avec un bruit (fichier wave), mais c'est vrai, le processeur va travailler...........

amicalement

 

[MJ13]

Re : (Evénement) Afficher une Alerte quand Heure now = Heure dans cases

Re:

Merci Wilfried pour ces précisions.

Mais ne faudrait il pas mieux que Skqgent ne se tourne plus vers un logiciel à part (n' ya t'il pas un risque d'usine à gaz avec Excel)?

J'espère qu'il nous tiendra au courant.