déclenchement d'une alerte

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2007

• #2

Re : déclenchement d'une alerte

Bonjour Arno

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 1 Décembre 2007

• #3

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

 

Vote positif 0 Vote négatif

A

arno44

Guest

• 1 Décembre 2007

• #4

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

 

Pièces jointes

• alerte.xls

  23 KB · Affichages: 98
• alerte.xls

  23 KB · Affichages: 101
• alerte.xls

  23 KB · Affichages: 101

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2007

• #5

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.

 

Vote positif 0 Vote négatif

A

arno44

Guest

• 1 Décembre 2007

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2007

• #7

Re : déclenchement d'une alerte

Re

si j'ai bien compris :

Code:

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

@+

 

Vote positif 0 Vote négatif

A

arno44

Guest

• 1 Décembre 2007

• #8

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)

 

Pièces jointes

• alerte.xls

  24 KB · Affichages: 108
• alerte.xls

  24 KB · Affichages: 107
• alerte.xls

  24 KB · Affichages: 110

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2007

• #9

Re : déclenchement d'une alerte

Re

modifies comme ci dessous :

Code:

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

 

Vote positif 0 Vote négatif

A

arno44

Guest

• 1 Décembre 2007

• #10

Re : déclenchement d'une alerte

Ok et merci c'est nikel.

 

Vote positif 0 Vote négatif

A

arno44

Guest

• 1 Décembre 2007

• #11

Re : déclenchement d'une alerte

Pierrot93 à dit:

Re

modifies comme ci dessous :

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 1 Décembre 2007

• #12

Re : déclenchement d'une alerte

bonjour

Code:

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

devient :

Code:

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

 

Vote positif 0 Vote négatif

A

arno44

Guest

• 1 Décembre 2007

• #13

Re : déclenchement d'une alerte

Bonjour,

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 1 Décembre 2007

• #14

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

 

Vote positif 0 Vote négatif

K

kbjh

XLDnaute Nouveau

• 1 Décembre 2007

• #15

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

 

Vote positif 0 Vote négatif