Alerte date

[gourdin]

Bonjour,

Je souhaiterais qu'à l'ouverture d'un fichier, un message d'alerte signale les personnes dont la date de passeport est valide (quand il reste moins de 6 mois) ou périmé.

Voir exemple

Merci beaucoup

 

[hoerwind]

Re : Alerte date

Bonjour,

Vois la MFC (menu format - Mise en Forme Conditionnelle) sous la pièce jointe.

 

[gourdin]

Re : Alerte date

En fait cette solution par le format conditionnel ne convient pas car il s'agit d'une liste de personnes assez longue et je ne souhaite pas à chaque fois visualiser toutes les lignes et repérer celles qui sont en rouge.

Il me semble plus judicieux d'être alerté par un message automatiquement à l'ouverture du fichier.

 

[klin89]

Re : Alerte date

Bonsoir le forum,
Bonsoir gourdin, hoerwind

Dans le même ordre d'idée, tu peux t'inspirer du travail de Robert ou de ROGER2327 ci-dessous.

https://www.excel-downloads.com/threads/alerte-echeance-par-msgbox.127517/

Klin89

 

[gourdin]

Re : Alerte date

Ok je regarde ce qui a été déjà fait

Merci

 

[gourdin]

Re : Alerte date

Avec les réponses déjà fournis dans le forum j'ai "bidouillé" une macro qui fonctionne mais pour laquelle je souhaiterai quelques améliorations

La macro ci-après me permet en cliquant sur un bouton de faire apparaitre un message d'alerte à chaque fois qu'une date de validité (passeport) est dépassée ou bientot dépassée.

Sub Macro2()
Dim pl As Range
With Sheets("Feuil1")
.Select
Set pl = .Range("E3:E" & .Range("E65536").End(xlUp).Row)
End With
For Each cel In pl
If CDate(cel.Value) < Date Then
MsgBox "Passeport périmé = " & cel.Offset(0, -3) & " " & cel.Offset(0, -2) & " !"
Range(cel.Offset(0, -3), cel.Offset(0, 0)).Interior.ColorIndex = 3
End If
If CDate(cel.Value) < Date + 180 And CDate(cel.Value) > Date + 90 Then
MsgBox "Passeport entre 6 et 3 mois de validité = " & cel.Offset(0, -3) & " " & cel.Offset(0, -2) & " !"
Range(cel.Offset(0, -3), cel.Offset(0, 0)).Interior.ColorIndex = 3
End If
If CDate(cel.Value) < Date + 90 And CDate(cel.Value) > Date Then
MsgBox "Passeport de moins de 3 mois de validité = " & cel.Offset(0, -3) & " " & cel.Offset(0, -2) & " !"
Range(cel.Offset(0, -3), cel.Offset(0, 0)).Interior.ColorIndex = 3
Next cel 'prochaine cellule cel de la plage pl
End If
End Sub

Je souhaiterai :
1. qu'il n'y ait pas de message d' alerte lorsque il n'y a pas de date mentionnée
2. Eviter la succession des messages en regroupant tous les messages en 1 seul.

Voir exemple

Merci

 

[gourdin]

Re : Alerte date

Avec les réponses déjà fournis dans le forum j'ai "bidouillé" une macro qui fonctionne mais pour laquelle je souhaiterai quelques améliorations

La macro ci-après me permet en cliquant sur un bouton de faire apparaitre un message d'alerte à chaque fois qu'une date de validité (passeport) est dépassée ou bientot dépassée.

Sub Macro2()
Dim pl As Range
With Sheets("Feuil1")
.Select
Set pl = .Range("E3:E" & .Range("E65536").End(xlUp).Row)
End With
For Each cel In pl
If CDate(cel.Value) < Date Then
MsgBox "Passeport périmé = " & cel.Offset(0, -3) & " " & cel.Offset(0, -2) & " !"
Range(cel.Offset(0, -3), cel.Offset(0, 0)).Interior.ColorIndex = 3
End If
If CDate(cel.Value) < Date + 180 And CDate(cel.Value) > Date + 90 Then
MsgBox "Passeport entre 6 et 3 mois de validité = " & cel.Offset(0, -3) & " " & cel.Offset(0, -2) & " !"
Range(cel.Offset(0, -3), cel.Offset(0, 0)).Interior.ColorIndex = 3
End If
If CDate(cel.Value) < Date + 90 And CDate(cel.Value) > Date Then
MsgBox "Passeport de moins de 3 mois de validité = " & cel.Offset(0, -3) & " " & cel.Offset(0, -2) & " !"
Range(cel.Offset(0, -3), cel.Offset(0, 0)).Interior.ColorIndex = 3
Next cel 'prochaine cellule cel de la plage pl
End If
End Sub

Je souhaiterai :
1. qu'il n'y ait pas de message d' alerte lorsque il n'y a pas de date mentionnée
2. Eviter la succession des messages en regroupant tous les messages en 1 seul.

Voir exemple

Merci

 

[gourdin]

Re : Alerte date

Avec l'exemple désolé

 

[canail18]

Re : Alerte date

Bonjour,

Je souhaiterais qu'à l'ouverture d'un fichier, un message d'alerte signale les personnes dont la date de passeport est valide (quand il reste moins de 6 mois) ou périmé.

Voir exemple

Merci beaucoup

Bonjour voila la formule. que j ai trouve a toi de voire bonne soiree Cordialement😉

 

[gourdin]

Re : Alerte date

Bonsoir, merci mais ce n'est pas celà que je souhaite.

Je souhaite un message qui apparait à l'ouverture de la page et non pas du texte ou une couleur sur une colonne ajoutée car j'ai un grand nombre de lignes et je veux être averti par un message d'alerte unique sans avoir à chercher sur tout le tableau.

 

[canail18]

Re : Alerte date

Bonjour voila la formule. que j ai trouve a toi de voire bonne soiree Cordialement😉

.
Merci l ami pour la formule je la garde . mon ma donnee une autre solution .
=L174>AUJOURDHUI() dans la mise en forme conditionnelle.merci a
tototiti2008 .
Cordialement