déclenchement d'une alerte

[arno44]

Bonjour,

Je voudrais déclencher une alerte suivant une condition en fonction d'une date.
Ci- joint un fichier expliquant ce que je souhaite exactement.

Merci

Arno

 

[Pierrot93]

Re : déclenchement d'une alerte

Bonjour Arno

code ci dessous à placer dans le module "thisworkbook" :

Private Sub Workbook_Open()
If Sheets("Feuil1").Range("E5").Value < Date Then MsgBox "date dépassée"
End Sub

bonne journée
@+

 

[jeanpierre]

Re : déclenchement d'une alerte

Bonjour Arno, Pierrot, le forum,

Et avec une petite Mise en forme conditionnelle, non ?

Format/Mise en forme conditionnelle, choisir la Formule est : =AUJOURDHUI()>E5 et choisir ton motif couleur... (supprimer tout de qui pourrait se rajouter)

A tirer vers le bas

Bon week-end.

Jean-Pierre

 

[arno44]

Re : déclenchement d'une alerte

Je viens d'essayer mais comme je débute en vba il me faudrais un peu d 'aide

Merci

Arno

 

[Pierrot93]

Re : déclenchement d'une alerte

Re Arno, bonjour Jean-Pierre

la macro se déclenche bien, mets 30/11/2007 en E5, enregistre, ferme le fichier et ouvre le, tu as un message d'alerte...

vérifie peut être ton niveau de sécurité, il doit être règlé sur moyen.

bonne journée
@+

edition : règlage niveau de sécurité, barre de menu => outils => macro => sécurité => onglet niveau de sécurité tu règles sur moyen.

 

[arno44]

Re : déclenchement d'une alerte

Cette fonction me plais bien mais j'aimerais que l'alerte m'indique la valeur de la case B5 pour que je puisse identifier la ou les lignes concernées.

Arno

 

[Pierrot93]

Re : déclenchement d'une alerte

Re

si j'ai bien compris :

Private Sub Workbook_Open()
If Sheets("Feuil1").Range("E5").Value < Date Then MsgBox "date dépassée, " _
    & "en E5 :" & Range("E5").Text
End Sub

@+

 

[arno44]

Re : déclenchement d'une alerte

c'est bien cette fonction que je souhaite, en revanche j'aimerais
avoir plusieurs alertes (une pour chaque ligne en dépassement)

 

[Pierrot93]

Re : déclenchement d'une alerte

Re

modifies comme ci dessous :

Private Sub Workbook_Open()
Dim c As Range
For Each c In Sheets("Feuil1").Range("E5:E8")
    If c.Value < Date Then MsgBox "date dépassée, " _
        & "N°:  " & c.Offset(0, -3).Text
Next c
End Sub

 

[arno44]

Re : déclenchement d'une alerte

Ok et merci c'est nikel.

 

[arno44]

Re : déclenchement d'une alerte

Re

modifies comme ci dessous :

Private Sub Workbook_Open()
Dim c As Range
For Each c In Sheets("Feuil1").Range("E5:E8")
    If c.Value < Date Then MsgBox "date dépassée, " _
        & "N°:  " & c.Offset(0, -3).Text
Next c
End Sub

Cette macro me convient mais j'ai eut un soucis car je rajoute des lignes régulièrement à la suite de mon tableau, donc j'ai remplacé ("E5:E8") par ("E5:E1000").
Il aurait fallut une condition qui n'affiche pas la fenêtre si E5 à E1000 est vide.

Merci encore pour votre aide

 

[wilfried_42]

Re : déclenchement d'une alerte

bonjour

For Each c In Sheets("Feuil1").Range("E5:E8")

devient :

for each c in sheets("Feuil1").range("E5:E" & sheets("Feuil1").range("E65536").end(xlup).row)

Range("E65536") ' On se positionne sur la derniere cellule de la colonne E
.end(xlup) ' On remonte jusqu'à la premiere cellule non vide rencontée
.row ' on recupere son n° de ligne

 

[arno44]

Re : déclenchement d'une alerte

Bonjour,

ça marche aussi si j'ai des lignes non remplies entre d'autres lignes ?

 

[wilfried_42]

Re : déclenchement d'une alerte

re:

meme s'il y a des lignes non remplies, si elles sont à l'interieur, elle seront prisent en compte dans la boucle.

la seules les lignes entre la derniere ligne contenant un donnée dans la colonne E et la 65536 eme ligne ne seront pas prises en compte

 

[kbjh]

Re : déclenchement d'une alerte

Bonsoir, je suis interessée aussi par cette macro
Seulement quand je met :

Private Sub Workbook_Open()
Dim c As Range
For Each c In Sheets("Feuil1").Range("E5:E8")
If c.Value < Date Then MsgBox "date dépassée, " _
& "N°: " & c.Offset(0, -3).Text
Next c
End Sub

En ouvrant le document excel, çà me sort que :
Date dépassé, N° :

Avec :
Private Sub Workbook_Open()
If Sheets("Feuil1").Range("E5").Value < Date Then MsgBox "date dépassée, " _
& "en E5 :" & Range("E5").Text
End Sub
C'est interessant, seulement c'est vrai que c'est pas pratique, puisque çà prend qu'une cellule presice.

Pouvez vous m'aider?
Merci d'avance