Microsoft 365 Msgbox alerte date

[Marvin57]

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

 

[Compte Supprimé 979]

Bonjour Marvin57

Une petite recherche dans ce forum

Résultats de la recherche pour la requête: message d'alerte sur date

excel-downloads.com

A+

 

[Marvin57]

Bonjour Marvin57

Une petite recherche dans ce forum

Résultats de la recherche pour la requête: message d'alerte sur date

excel-downloads.com

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

 

[Compte Supprimé 979]

Re,

Perso, dans mon tableau je mettrais une colonne "Date Echeance"
Mais sinon, voici une possibilité de code à utiliser

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+

 

[Marvin57]

Re,

Perso, dans mon tableau je mettrais une colonne "Date Echeance"
Mais sinon, voici une possibilité de code à utiliser

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 ?

 

[Compte Supprimé 979]

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+

 

[Marvin57]

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 ?

 

[Marvin57]

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