Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

M

matthieu2701

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Macro alerte.xls
    23.5 KB · Affichages: 94
Dernière édition:
Trier par date Trier par votes
M

matthieu2701

XLDnaute Occasionnel
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
 
Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc
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:
VB: 
If .Cells(lig, 21) > 0 And .Cells(lig, 21) <= Date Then ...
 
Vote positif 0 Vote négatif
D

Docmarti

XLDnaute Occasionnel
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.

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

Bonjour Modeste

Cordialement

Docmarti
 
Vote positif 0 Vote négatif
M

matthieu2701

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


Cela fonctionne. Merci

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

Modeste

XLDnaute Barbatruc
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 ?
Cliquez pour agrandir...
Ben, en testant la variable ch: si aucune date n'est en alerte, elle sera vide à la sortie de la boucle ... donc:
Code: 
If ch <> "" Then MsgBox "Sont en retard ... ou presque: " & vbCr & ch
... devrait fonctionner!?
 
Vote positif 0 Vote négatif
M

matthieu2701

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


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
 
Vote positif 0 Vote négatif
S

Si...

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Open.xlsm
    34.9 KB · Affichages: 31
  • Open.xlsm
    34.9 KB · Affichages: 28
  • Open.xlsm
    34.9 KB · Affichages: 66
Vote positif 0 Vote négatif

Modeste

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

Re,
Salut Si...

Si... à dit:
en attendant que Modeste voit cette alerte , une autre proposition avec l'outil Tableau.
Cliquez pour agrandir...
Oh mais ... quelle délicieuse surprise! ... Un tableau ...

.
matthieu2701 à dit:
A quel endroit de la macro je dois la placer ?
Cliquez pour agrandir...
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!)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question Question
Microsoft 365 délai traitement dossier en état instruction et par rapport date du jour et date de réception
Réponses
1
Affichages
467
Phil69970
C
  • Question Question
XL 2016 alerte si date dépassée
Réponses
8
Affichages
2 K
ccilette
C
  • Question Question
Microsoft 365 Modèle de facture avec macro
2
Réponses
18
Affichages
392
Jelose
C
  • Question Question
Microsoft 365 Cellule en couleur si la date du jour est dépassée
Réponses
6
Affichages
614
clemence.cordonnier
C
D
  • Résolu(e)
XL 2021 afficher prénom de la plageprénom si correspondance avec prénom à la date du jour dans plage10 (fêtes)
Réponses
5
Affichages
490
DédéW83
D
D
  • Résolu(e)
XL 2021 VBA - Copies de données entre deux tableaux structurés avec plusieurs conditions
Réponses
5
Affichages
675
Drapela
D
M
  • Résolu(e)
Microsoft 365 Msgbox alerte date
Réponses
7
Affichages
568
Marvin57
M
D
  • Question Question
Fond textbox si date du jour
Réponses
12
Affichages
561
gbinforme
G
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
92
JJ69
J
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
424
clausen
C
  • Résolu(e)
XL 2021 Quel code permettrait de refermer mon classeur si la date (les 10 derniers caractères du nom du classeur) ne correspondent pas à la date du jour ?
Réponses
7
Affichages
705
Usine à gaz
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
W
  • Question Question
XL 2021 Double boucle
Réponses
2
Affichages
397
whiteshark
W
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
593
Nico2978
C
  • Question Question
Microsoft 365 Remonter à la date du jour
Réponses
12
Affichages
709
Cousinhub
M
  • Question Question
Microsoft 365 Date du jour apparaisse et se fige lorsqu'une autre cellule est remplie
Réponses
3
Affichages
587
JHA
J
  • Question Question
Microsoft 365 Alerte sur date du jour
2 3
Réponses
31
Affichages
2 K
pompaero
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
874
mouchtre
K
  • Question Question
Microsoft 365 Remplir une cellule avec la date du jour uniquement si celle-ci est vide et si la première cellule de la ligne contient quelque chose
Réponses
5
Affichages
888
ThierryP
T
M
  • Question Question
Microsoft 365 aide sur macro pour une asso
2
Réponses
23
Affichages
1 K
moupa
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…