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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Dernière édition:
Trier par date Trier par votes
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
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
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
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
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
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
299
patricktoulon
C
  • Question Question
Microsoft 365 Cellule en couleur si la date du jour est dépassée
Réponses
6
Affichages
784
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
651
DédéW83
D
D
  • Question Question
Fond textbox si date du jour
Réponses
12
Affichages
767
gbinforme
G
  • 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
866
Usine à gaz
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
1 K
ThierryP
T
A
  • Résolu(e)
Microsoft 365 Excel 365 x Power Query : suivi campagnes promotionnelles
Réponses
4
Affichages
1 K
Atsuki
A
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
  • Question Question
Microsoft 365 Suppression ligne si date inférieure à la date du jour
Réponses
3
Affichages
828
Jacky67
M
  • Résolu(e)
Microsoft 365 [Résolu] Macro extraction de dates
Réponses
6
Affichages
1 K
maxime45
M
A
  • Résolu(e)
XL 2019 Inversion date avec macro import
Réponses
14
Affichages
1 K
Arnaud59000
A
M
  • Question Question
Microsoft 365 Macro filtre pour sélectionner les dates portant sur les 2 mois à venir à partir de la date du jour
Réponses
2
Affichages
1 K
michel.dupont
M
B
  • Question Question
XL 2013 RECHERCHE V AVEC COLORISATION OU MACRO AVEC COLORISATION
Réponses
1
Affichages
836
bakugo
B
F
  • Question Question
Microsoft 365 Calcul du taux d'occupation hebdomadaire d'une activité
Réponses
8
Affichages
3 K
Staple1600
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
L
  • Résolu(e)
XL 2016 Mise à jour d'une valeur date SI modification du contenu dans le tableau
Réponses
3
Affichages
8 K
Dju1
D
W
  • Résolu(e)
XL 2013 Exécuter une macro uniquement si la date d'une cellule est inférieure à la date du jour
Réponses
3
Affichages
8 K
WIsh_
W
Y
  • Question Question
XL 2016 filtre VBA date dépassée
Réponses
0
Affichages
2 K
youpi457032
Y
R
  • Question Question
XL 2019 Mise à jour d'un stock avec VBA - Pb code/msgboxVBNO ne s'applique pas/tableau non effacé
Réponses
2
Affichages
2 K
remy3434
R
Q
  • Résolu(e)
XL 2016 Problème changement format date
Réponses
14
Affichages
4 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…