Alerte prise de RDV

K

kimcergy

XLDnaute Occasionnel

• 9 Septembre 2013

• #2

Re : merci de m'aider

Un rappel de 15mn avant le RDV svp

 

Vote positif 0 Vote négatif

K

kimcergy

XLDnaute Occasionnel

• 9 Septembre 2013

• #3

Re : merci de m'aider

Personne ?

 

Vote positif 0 Vote négatif

K

kimcergy

XLDnaute Occasionnel

• 9 Septembre 2013

• #4

Re : merci de m'aider

Aidez moi svp

 

Vote positif 0 Vote négatif

K

kimcergy

XLDnaute Occasionnel

• 9 Septembre 2013

• #5

Re : merci de m'aider

Pour éclaircir ma demande, je voudrais une alarme sonore ou visuelle 15mn avant l'heure du RDV.
Pensez vous que cela est possible ?

Merci par avance

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Septembre 2013

• #6

Re : merci de m'aider

Bonjour kimcergy,

Voyez le fichier joint et ces 3 macros dans ThisWorkbook (Alt+F11) :

Code:

Private Sub Workbook_Open()
Dim a, i&
a = [Tableau]
[Tableau].Columns(5).ClearContents 'RAZ
Application.OnTime 0, "ThisWorkbook.Minuit"
For i = 1 To UBound(a)
  Application.OnTime Date + a(i, 1) - 15 / 1440, "ThisWorkbook.Alerte"
Next
End Sub

Sub Minuit()
Workbook_Open 'pour reinitialiser les alertes
End Sub

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
    MsgBox Format(a(i, 1), "h:mm") & " " & a(i, 2), , "Rappel RV"
    [Tableau].Cells(i, 5) = "X"
  End If
Next
End Sub

Nota 1 : la colonne auxiliaire "Alertes" en Feuil1 est indispensable.

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

A+

 

Pièces jointes

• RAPPEL RDV(1).xls

  38.5 KB · Affichages: 70

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Septembre 2013

• #7

Re : merci de m'aider

Re,

Si l'on entre de nouvelles heures en Feuil1 il faut fermer le fichier (1) et le rouvrir pour réinitialiser les alertes.

Mais on peut aussi utiliser ce fichier (2) avec cette macro dans le code de Feuil1 :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then ThisWorkbook.Minuit
End Sub

Les alertes seront réinitialisées à chaque modification de la colonne A.

A+

 

Pièces jointes

• RAPPEL RDV(2).xls

  44 KB · Affichages: 66
• RAPPEL RDV(2).xls

  44 KB · Affichages: 72
• RAPPEL RDV(2).xls

  44 KB · Affichages: 69

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Septembre 2013

• #8

Re : merci de m'aider

Re,

Encore une chose kimcergy.

Allez sur votre post #1, cliquez sur "Modifier le message" et modifiez le titre de la discussion.

Appelez-la par exemple Alertes pour rendez-vous.

Cela permettra de retrouver facilement cette discussion à partir de ces mots clés.

A+

 

Vote positif 0 Vote négatif

K

kimcergy

XLDnaute Occasionnel

• 10 Septembre 2013

• #9

Re : merci de m'aider

Bonjour Job75,

Je vous remercie beaucoup de m'aider.
Je voudrais cependant pour l'alerte, agrandir et mettre une couleur bleu ou rouge avec un son. Est ce possible ?

Encore merci à vous

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2013

• #10

Re : merci de m'aider

Bonjour kimcergy,

Je n'aime pas trop les questions à rallonges, et ma solution est amplement suffisante.

Maintenant si vous êtes un adepte des gadgets allez-y mais débrouillez-vous tout seul.

Edit : en plus cher ami, mon post #8 vous vous en tapez le coquillard 😡

A+

 

Dernière édition: 10 Septembre 2013

Vote positif 0 Vote négatif

K

kimcergy

XLDnaute Occasionnel

• 10 Septembre 2013

• #11

Re : merci de m'aider

Peut on aussi voir l'alerte même si on travaille sur une autre appli ?
Merci à vous

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2013

• #12

Re : merci de m'aider

kimcergy à dit:

Peut on aussi voir l'alerte même si on travaille sur une autre appli ?
Merci à vous

Cliquez pour agrandir...

Oui le message sera créé mais normalement il faut activer Excel pour le voir.

Vous pouvez essayer en mettant dans la macro Alerte avant la MsgBox :

Code:

AppActivate "Microsoft Excel"

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2013

• #13

Re : Alerte prise de RDV

Re,

J'ai testé avec Word activé : il faut bien AppActivate "Microsoft Excel" dans la macro "Alerte".

Mais le message Excel reste dans la barre des tâches, en clignotant.

Je suis sur Win 7 - Office 2010.

A+

 

Vote positif 0 Vote négatif

K

kimcergy

XLDnaute Occasionnel

• 10 Septembre 2013

• #14

Re : Alerte prise de RDV

Re,
Je suis un debutant en office. Pouvez vous m'expliquer comment mettre AppActivate "Microsoft Excel" dans la macro "Alerte
Merci de votre aide

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2013

• #15

Re : Alerte prise de RDV

Re,

Code:

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"
    MsgBox Format(a(i, 1), "h:mm") & " " & a(i, 2), , "Rappel RV"
    [Tableau].Cells(i, 5) = "X"
  End If
Next
End Sub

A+

 

Vote positif 0 Vote négatif