Microsoft 365 Msgbox alerte date

Marvin57 · 21 Juin 2023

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 · 21 Juin 2023

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+

Compte Supprimé 979 · 21 Juin 2023

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 · 21 Juin 2023

BrunoM45 à dit:
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 · 21 Juin 2023

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+

Marvin57 · 21 Juin 2023

BrunoM45 à dit:

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 ?

Compte Supprimé 979 · 21 Juin 2023

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 · 21 Juin 2023

BrunoM45 à dit:
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 · 21 Juin 2023

BrunoM45 à dit:
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

Microsoft 365 Msgbox alerte date

Marvin57

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Compte Supprimé 979

Guest

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

Marvin57

XLDnaute Occasionnel

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

Pièces jointes

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Marvin57

XLDnaute Occasionnel

Discussions similaires