Macro avec MSGBOX si date du jour dépassée

[matthieu2701]

Bonjour,

J'ai un tableau de suivi pour les réclamations. De temps en temps, je dois mettre en attente des dossiers car j'attends des retours de services transverses.

Dans mon fichier, en colonne U, je rempli la date à laquelle je souhaite être alerté.

J'aimerais qu'à l'ouverture du fichier, le macro recherche les dates du jour ou dépassée afin de m'alerter par MSGBOX.

J'espère avoir été assez clair.

Merci par avance.

 

[matthieu2701]

Re : Macro avec MSGBOX si date du jour dépassée

Je rempli la cellule si je souhaite être alerté à une date précise. Si la case n'est pas rempli, je ne souhaite pas que la macro me note celle ligne dans la MSGBOX

 

[Modeste]

Re : Macro avec MSGBOX si date du jour dépassée

Bonsoir,

Merci à Docmarti d'avoir pris le relais

Et que donnerait le test suivant:

If .Cells(lig, 21) > 0 And .Cells(lig, 21) <= Date Then ...

 

[matthieu2701]

Re : Macro avec MSGBOX si date du jour dépassée

Je teste demain et je vous tiens au courant. Merci à vous.

 

[Docmarti]

Re : Macro avec MSGBOX si date du jour dépassée

Bonjour matthieu2701

Je n'ai pas fais attention. Je pensais que tu avais utilisé cette suggestion que je faisais et qui fonctionne aussi.

If IsDate(.Cells(lig, "U")) And .Cells(lig, "U") <= Date Then

Bonjour Modeste

Cordialement

Docmarti

 

[matthieu2701]

Re : Macro avec MSGBOX si date du jour dépassée

Bonjour matthieu2701

Je n'ai pas fais attention. Je pensais que tu avais utilisé cette suggestion que je faisais et qui fonctionne aussi.

If IsDate(.Cells(lig, "U")) And .Cells(lig, "U") <= Date Then

Bonjour Modeste

Cordialement

Docmarti

Cela fonctionne. Merci

Est-il possible de ne pas faire afficher la MSGBOX si aucune date n'est en Alerte ?

 

[Modeste]

Re : Macro avec MSGBOX si date du jour dépassée

Bonjour matthieu2701, Docmarti,

Est-il possible de ne pas faire afficher la MSGBOX si aucune date n'est en Alerte ?

Ben, en testant la variable ch: si aucune date n'est en alerte, elle sera vide à la sortie de la boucle ... donc:

If ch <> "" Then MsgBox "Sont en retard ... ou presque: " & vbCr & ch

... devrait fonctionner!?

 

[matthieu2701]

Re : Macro avec MSGBOX si date du jour dépassée

Bonjour matthieu2701, Docmarti,

Ben, en testant la variable ch: si aucune date n'est en alerte, elle sera vide à la sortie de la boucle ... donc:

If ch <> "" Then MsgBox "Sont en retard ... ou presque: " & vbCr & ch

... devrait fonctionner!?

A quel endroit de la macro je dois la placer ?

Sub Alerte2()
With Sheets("Suivi récla")
For lig = 4 To .Cells(Rows.Count, 3).End(xlUp).Row
If IsDate(.Cells(lig, "U")) And .Cells(lig, "U") <= Date Then ch = ch & vbCr & .Cells(lig, 1) & " en ligne " & lig
Next lig
End With
MsgBox "Sont en retard ... ou presque: " & vbCr & ch
End Sub

 

[Si...]

Re : Macro avec MSGBOX si date du jour dépassée

salut

en attendant que Modeste voit cette alerte , une autre proposition avec l'outil Tableau.

 

[Modeste]

Re : Macro avec MSGBOX si date du jour dépassée

Re,
Salut Si...

en attendant que Modeste voit cette alerte , une autre proposition avec l'outil Tableau.

Oh mais ... quelle délicieuse surprise! ... Un tableau ...

.

A quel endroit de la macro je dois la placer ?

Whaaaa hé Matthieu! Sur ce coup-là tu n'as tout de même pas cherché bien longtemps ... Si? Je t'ai mis la ligne complète (la seconde moitié existe déjà; tu n'avais plus qu'à ajouter la première moitié ... devant la seconde)
Et puis je parlais de "la sortie de la boucle" ... ça te donnait un indice supplémentaire, tout de même!?

Tu te souviens qu'au départ j'ai suggéré -avec un peu d'insistance- de travailler avec une mise en forme conditionnelle? C'eût été plus simple, tout de même (même si "visuellement" tu préfères un MsgBox!)

 

[matthieu2701]

Re : Macro avec MSGBOX si date du jour dépassée

Merci à tous pour votre aide