Microsoft 365 Msgbox alerte date

  • Initiateur de la discussion Initiateur de la discussion Marvin57
  • Date de début Date de début

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 !

Marvin57

XLDnaute Occasionnel
Bonjour à tout le forum,

je cherche à placer un msgbox dans mon fichier avec les conditions suivantes ;

je souhaiterai que lors de l'ouverture du fichier, un msgbox s'affiche sur l'onglet "ACCUEIL" si une ou plusieurs dates de la colonne A du tableau 1, sont <= à la date de la cellule K2 - 5.

Une fois une date placée en colonne I du tableau 1, de l'onglet "BASE" l'alerte pour cette date s'efface.

J'espère avoir bien expliqué ma demande.

Merci à vous pour votre aide.

Marvin57
 

Pièces jointes

Solution
C
Re,
Non, c'était juste pour que vous ayez une bonne organisation.
Dans votre tableau on ne voit que les dates d'émission, on ne sait pas quand la facture arrive a échéance 🤔
Ce qui vous permettrait de faire des rappels préventifs... la clé d'une bonne trésorerie 😜
A+
Bonjour Marvin57

Une petite recherche dans ce forum 🤔

A+
Bonjour BrunoM45,

c'est vrai j'aurai pu me creuser la tête aussi un peu 😕
Désolé.

Alors j'ai trouvé une solution, mais malgré tout je n'arrive pas à l'adapter. J'espère déjà que le départ est correct, que j'ai au moins une bonne réponse.
Le msgbox s'affiche bien à l'ouverture, mais même si j'ai saisi la date en colonne I, il m'affiche quand même le msgbox à l'ouverture.

Merci à vous pour me guider un petit peu SVP ou me dire ou j'ai une erreur.

Marvin57
 

Pièces jointes

Re,

Perso, dans mon tableau je mettrais une colonne "Date Echeance"
Mais sinon, voici une possibilité de code à utiliser
VB:
Sub infos_dates_retard_paiement_F()
  Dim Lo As ListObject
  Dim CelA As Range
  Dim NbImpayé As Integer
  ' Définir le tableau structuré à traiter
  Set Lo = ThisWorkbook.Sheets("BASE").ListObjects("Tableau1")
  ' Pour chaque cellule à traiter
  For Each CelA In Lo.ListColumns("EMIS LE").DataBodyRange
    ' Si la cellule contient une date
    If CelA <> "" Then
      ' Si la cellule de la colonne PAYE LE est vide
      If Lo.ListColumns("PAYE LE").DataBodyRange.Cells(CelA.Row - Lo.HeaderRowRange.Row) = "" Then
        ' Vérifier la date d'échéance
        If CelA.Value + 30 < Date Then NbImpayé = NbImpayé + 1
      End If
    End If
  Next CelA
  ' Petit message si
  If NbImpayé > 0 Then
    MsgBox "ATTENTION ! Vous avez " & NbImpayé & " retard(s) de paiement"
  End If
End Sub

A+
 
Re,

Perso, dans mon tableau je mettrais une colonne "Date Echeance"
Mais sinon, voici une possibilité de code à utiliser
VB:
Sub infos_dates_retard_paiement_F()
  Dim Lo As ListObject
  Dim CelA As Range
  Dim NbImpayé As Integer
  ' Définir le tableau structuré à traiter
  Set Lo = ThisWorkbook.Sheets("BASE").ListObjects("Tableau1")
  ' Pour chaque cellule à traiter
  For Each CelA In Lo.ListColumns("EMIS LE").DataBodyRange
    ' Si la cellule contient une date
    If CelA <> "" Then
      ' Si la cellule de la colonne PAYE LE est vide
      If Lo.ListColumns("PAYE LE").DataBodyRange.Cells(CelA.Row - Lo.HeaderRowRange.Row) = "" Then
        ' Vérifier la date d'échéance
        If CelA.Value + 30 < Date Then NbImpayé = NbImpayé + 1
      End If
    End If
  Next CelA
  ' Petit message si
  If NbImpayé > 0 Then
    MsgBox "ATTENTION ! Vous avez " & NbImpayé & " retard(s) de paiement"
  End If
End Sub

A+
Re,

Merci pour votre retour avec le code.

Que voulez vous dire par " mettre une colonne avec Date échéance" ?
Est-ce que avec cela j'aurai aussi un message lors de l'ouverture du fichier ?
 
Re,
Non, c'était juste pour que vous ayez une bonne organisation.
Dans votre tableau on ne voit que les dates d'émission, on ne sait pas quand la facture arrive a échéance 🤔
Ce qui vous permettrait de faire des rappels préventifs... la clé d'une bonne trésorerie 😜
A+
 
Re,
Non, c'était juste pour que vous ayez une bonne organisation.
Dans votre tableau on ne voit que les dates d'émission, on ne sait pas quand la facture arrive a échéance 🤔
Ce qui vous permettrait de faire des rappels préventifs... la clé d'une bonne trésorerie 😜
A+
Donc d'après vous je devrai rajouter une colonne date échéance et mettre en place une MFC ?
 
Re,
Non, c'était juste pour que vous ayez une bonne organisation.
Dans votre tableau on ne voit que les dates d'émission, on ne sait pas quand la facture arrive a échéance 🤔
Ce qui vous permettrait de faire des rappels préventifs... la clé d'une bonne trésorerie 😜
A+
Re,

Merci à vous Bruno

j'ai suivi votre conseil pour rajouter une colonne DATE ECHEANCES et avec une MFC.
C'est formidable.

En creusant on trouve 😛


Merci encore et A+
Marvin57
 
- 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

  • Question Question
Microsoft 365 alerte
Réponses
5
Affichages
349
Réponses
4
Affichages
123
Réponses
11
Affichages
415
Réponses
23
Affichages
2 K
Réponses
2
Affichages
439
Réponses
5
Affichages
108
Retour