Alerte prise de RDV

[kimcergy]

Bonjour à tous,

Voila, je voudrais créer une feuille Excel avec des flash de rappel à chaque heure indiquée.
Par ex à chaque ligne, je voudrais qu'un pop up s'affiche avec le nom du site à chaque heure
indiquée.

Je vous remercie par avance de votre aide
Cordialement

 

[kimcergy]

Re : Alerte prise de RDV

Re,

Ok mais comment insérer ce code et où l'insérer svp

 

[kimcergy]

Re : Alerte prise de RDV

RE,

Je vous joins le fichier. Pourriez vous me montrer comment inserer tous les codes svp ?

 

[job75]

Re : Alerte prise de RDV

Re,

Allez dans VBA par les touches Alt+F11.

Vous trouverez les macros en double-cliquant sur ThisWorkbook puis sur Feuil1.

A+

 

[kimcergy]

Re : Alerte prise de RDV

Bonjour Job75,

Merci beaucoup de votre aide.
Sur feuille1, Peut on cacher ou déplacer plus bas "Nom défini Tableau =DECALER(Feuil1!$A$4;1;;NBVAL(Feuil1!$A:$A)-NBVAL(Feuil1!$A$1:$A$4);5)" ?
Tant qu'on clique pas ok sur l'alerte, l'alerte suivante peut elle s'afficher simultanément svp ? car j'ai remarqué que tout s'arrête si je ne clique pas sur OK

Encore merci
A+
Pourriez voir svp ?

 

[kimcergy]

Re : Alerte prise de RDV

RE
juste pour vous dire que les alertes s'affichent bien les unes derrières les autres. Ca fonctionne bien c'est cool 🙂
sinon pourriez vous m'aider à mettre un son svp ?

Merci

 

[job75]

Re : Alerte prise de RDV

Bonsoir kimcergy,

pourriez vous m'aider à mettre un son svp ?

On peut utilise l'instruction Beep, voyez le fichier (3) avec :

Sub Alerte()
Dim a, i&
a = [Tableau]
For i = 1 To UBound(a)
  If Time >= a(i, 1) - 15 / 1440 And Time < a(i, 1) And a(i, 5) = "" Then
    AppActivate "Microsoft Excel"
    Beep
    MsgBox Format(a(i, 1), "h:mm") & " " & a(i, 2), , "Rappel RV"
    [Tableau].Cells(i, 5) = "X"
  End If
Next
End Sub

A la place de Beep on peut aussi faire exécuter un fichier son, wave par exemple.

Voyez sur ce forum ou sur le web.

A+

 

[kimcergy]

Re : Alerte prise de RDV

Bonjour Job75,

Merci beaucoup de votre patience. Je vais le tester.
Juste une question, peut on ajouter des nouveaux RDV et donc des lignes supplémentaires.
une fois ajoutés, pourront-ils être pris en compte ou pas ?

Merci infiniment cher ami

 

[job75]

Re : Alerte prise de RDV

Bonjour kimcergy,

Juste une question, peut on ajouter des nouveaux RDV et donc des lignes supplémentaires.
une fois ajoutés, pourront-ils être pris en compte ou pas ?

La réponse a été donnée d'avance au post #6 :

Nota 2 : le tableau est défini dynamiquement par le nom Tableau.

Vous auriez pu d'ailleurs tester non ?

A+

 

[kimcergy]

Re : Alerte prise de RDV

Bonjour cher ami,
J'ai pu tester et ça fonctionne très bien.
Encore un grand merci à vous
A+