XL 2016 Mise à jour colonne EXCEL et MSGBOX

Y

YOUYOU25

XLDnaute Junior
Bonjour à tous ,

Je viens de créer un fichier client en VBA avec MSGBOX pour m'indiquer le nom et le nombre de jours restant pour régler les factures non traitées en colonne L . Je dispose d'un bouton pour appeler la macro à chaque fois que je modifie mon tableau EXCEL, mais chaque fois que je modifie la date en colonne D et que j'appelle la macro, toutes les cellules évoluent sauf celles des jours restants par rapport à aujourd'hui en colonne K et la MSGBOX ne prend pas en compte. Si j'appelle de nouveau la macro par le bouton la cellule de la colonne K, la modification dans le tableau est effectuée et la MSGBOX est également modifiée. Est ce qu'une âme charitable pourrait me proposer une modification dans ma fonction pour tout fonctionne avec un seul appel de macro.

Merci à tous

Bonne soirée à vs
 

Pièces jointes

  • CLASSEUR REGLEMENT PAULINE.xlsm
    78.8 KB · Affichages: 8
Trier par date Trier par votes
E

Eric KERGRESSE

XLDnaute Occasionnel
Bonjour,

Il vous faut réaliser une première passe pour mettre à jour vos données et une deuxième pour remplir votre variable message :

VB: 
Sub RelanceFactures()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim i As Long
    Dim message As String ' Variable pour stocker les messages
    Dim nonRegleCount As Long ' Variable pour compter les factures non réglées
    Dim daysRemaining As Long
  
    ' Spécifiez le nom de la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")
    
    ' Obtenez la date d'aujourd'hui
    currentDate = Date
    
    ' Trouvez la dernière ligne de données dans la colonne A
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Parcourez les lignes à partir de la ligne 2
    For i = 2 To lastRow
        If ws.Cells(i, "D").Value <= currentDate And IsNumeric(ws.Cells(i, "H").Value) Then
            ' Calculer les jours restants
            daysRemaining = DateDiff("d", currentDate, ws.Cells(i, "I").Value)
            ' Afficher les jours restants en colonne K
            ws.Cells(i, "K").Value = daysRemaining
            
            ' Mettre à jour la colonne J en fonction de la colonne C
            Select Case ws.Cells(i, "C").Value
                Case "FACTURE"
                    ws.Cells(i, "J").Value = "A RELANCER"
                Case "LETTREE"
                    ws.Cells(i, "J").Value = "REGLER"
                Case "A FACTURER"
                    ws.Cells(i, "J").Value = "A FACTURER"
                Case Else
                    ws.Cells(i, "J").Value = "NON TRAITE"
            End Select

            ' Mettre à jour la colonne L en fonction de la colonne J
            Select Case ws.Cells(i, "J").Value
                Case "A RELANCER", "A FACTURER"
                    ' "A RELANCER" ou "A FACTURER" en police blanche avec un remplissage en rouge
                    ws.Cells(i, "L").Value = "NON TRAITE"
                    ws.Cells(i, "L").Font.Color = RGB(255, 255, 255) ' Police blanche
                    ws.Cells(i, "L").Interior.Color = RGB(255, 0, 0) ' Fond rouge
                    ws.Cells(i, "L").Font.Bold = True ' Gras
                Case "REGLER"
                    ' "REGLER" en police noire avec un remplissage en vert
                    ws.Cells(i, "L").Value = "TRAITE"
                    ws.Cells(i, "L").Font.Color = RGB(0, 0, 0) ' Police noire
                    ws.Cells(i, "L").Interior.Color = RGB(0, 255, 0) ' Fond vert
                    ws.Cells(i, "L").Font.Bold = True ' Gras
            End Select

            ' Mettre à jour la colonne E en fonction de la colonne L
            If ws.Cells(i, "L").Value = "TRAITE" Then
                ' Afficher le mois et l'année dans la colonne E
                ws.Cells(i, "E").Value = Format(currentDate, "mmmm yyyy")
            Else
                ' Réinitialiser la colonne E si ce n'est pas "TRAITE"
                ws.Cells(i, "E").Value = ""
            End If

            ' Calculer le montant multiplié par 3 % dans la colonne G
            ws.Cells(i, "G").Value = ws.Cells(i, "B").Value * 0.03 & " €"

            ' Calculer la nouvelle date en colonne I en ajoutant la date en colonne D avec le nombre en colonne H
            ws.Cells(i, "I").Value = ws.Cells(i, "D").Value + ws.Cells(i, "H").Value
        End If
    Next i
    
    For i = 2 To lastRow
        If ws.Cells(i, "D").Value <= currentDate And IsNumeric(ws.Cells(i, "H").Value) Then
            ' Calculer les jours restants
            daysRemaining = DateDiff("d", currentDate, ws.Cells(i, "I").Value)
            ' Afficher les jours restants en colonne K
            ws.Cells(i, "K").Value = daysRemaining
            ' Ajouter les détails à la variable de message uniquement si la colonne L n'est pas "TRAITE"
            If ws.Cells(i, "L").Value <> "TRAITE" Then
                message = message & "FACTURE NON REGLEE - " & ws.Cells(i, "A").Value & vbCrLf & "Jours restants : " & daysRemaining & " jours" & vbCrLf
                nonRegleCount = nonRegleCount + 1 ' Incrémenter le compteur
            End If
        End If
    Next i
    
    
    ' Afficher toutes les informations en une seule MsgBox avec le nombre de factures non réglées dans l'en-tête
    MsgBox "Nombre de factures non réglées : " & nonRegleCount & vbCrLf & vbCrLf & message, vbCritical, "Relance"
End Sub
 
Vote positif 1 Vote négatif
sousou

sousou

XLDnaute Barbatruc
Bonjour,
Tu calcules date d'écheance après le nombre de jour alors!!!!
Déplace ton calcul d'échéance

For i = 2 To lastRow
If ws.Cells(i, "D").Value <= currentDate And IsNumeric(ws.Cells(i, "H").Value) Then
' Calculer les jours restants
Dim daysRemaining As Long
ws.Cells(i, "I").Value = ws.Cells(i, "D").Value + ws.Cells(i, "H").Value
daysRemaining = DateDiff("d", currentDate, ws.Cells(i, "I").Value)
' Afficher les jours restants en colonne K
 
Vote positif 1 Vote négatif
Y

YOUYOU25

XLDnaute Junior
Eric KERGRESSE à dit:
Bonjour,

Il vous faut réaliser une première passe pour mettre à jour vos données et une deuxième pour remplir votre variable message :

VB: 
Sub RelanceFactures()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentDate As Date
    Dim i As Long
    Dim message As String ' Variable pour stocker les messages
    Dim nonRegleCount As Long ' Variable pour compter les factures non réglées
    Dim daysRemaining As Long
 
    ' Spécifiez le nom de la feuille de calcul
    Set ws = ThisWorkbook.Sheets("Feuil1")
   
    ' Obtenez la date d'aujourd'hui
    currentDate = Date
   
    ' Trouvez la dernière ligne de données dans la colonne A
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
   
    ' Parcourez les lignes à partir de la ligne 2
    For i = 2 To lastRow
        If ws.Cells(i, "D").Value <= currentDate And IsNumeric(ws.Cells(i, "H").Value) Then
            ' Calculer les jours restants
            daysRemaining = DateDiff("d", currentDate, ws.Cells(i, "I").Value)
            ' Afficher les jours restants en colonne K
            ws.Cells(i, "K").Value = daysRemaining
           
            ' Mettre à jour la colonne J en fonction de la colonne C
            Select Case ws.Cells(i, "C").Value
                Case "FACTURE"
                    ws.Cells(i, "J").Value = "A RELANCER"
                Case "LETTREE"
                    ws.Cells(i, "J").Value = "REGLER"
                Case "A FACTURER"
                    ws.Cells(i, "J").Value = "A FACTURER"
                Case Else
                    ws.Cells(i, "J").Value = "NON TRAITE"
            End Select

            ' Mettre à jour la colonne L en fonction de la colonne J
            Select Case ws.Cells(i, "J").Value
                Case "A RELANCER", "A FACTURER"
                    ' "A RELANCER" ou "A FACTURER" en police blanche avec un remplissage en rouge
                    ws.Cells(i, "L").Value = "NON TRAITE"
                    ws.Cells(i, "L").Font.Color = RGB(255, 255, 255) ' Police blanche
                    ws.Cells(i, "L").Interior.Color = RGB(255, 0, 0) ' Fond rouge
                    ws.Cells(i, "L").Font.Bold = True ' Gras
                Case "REGLER"
                    ' "REGLER" en police noire avec un remplissage en vert
                    ws.Cells(i, "L").Value = "TRAITE"
                    ws.Cells(i, "L").Font.Color = RGB(0, 0, 0) ' Police noire
                    ws.Cells(i, "L").Interior.Color = RGB(0, 255, 0) ' Fond vert
                    ws.Cells(i, "L").Font.Bold = True ' Gras
            End Select

            ' Mettre à jour la colonne E en fonction de la colonne L
            If ws.Cells(i, "L").Value = "TRAITE" Then
                ' Afficher le mois et l'année dans la colonne E
                ws.Cells(i, "E").Value = Format(currentDate, "mmmm yyyy")
            Else
                ' Réinitialiser la colonne E si ce n'est pas "TRAITE"
                ws.Cells(i, "E").Value = ""
            End If

            ' Calculer le montant multiplié par 3 % dans la colonne G
            ws.Cells(i, "G").Value = ws.Cells(i, "B").Value * 0.03 & " €"

            ' Calculer la nouvelle date en colonne I en ajoutant la date en colonne D avec le nombre en colonne H
            ws.Cells(i, "I").Value = ws.Cells(i, "D").Value + ws.Cells(i, "H").Value
        End If
    Next i
   
    For i = 2 To lastRow
        If ws.Cells(i, "D").Value <= currentDate And IsNumeric(ws.Cells(i, "H").Value) Then
            ' Calculer les jours restants
            daysRemaining = DateDiff("d", currentDate, ws.Cells(i, "I").Value)
            ' Afficher les jours restants en colonne K
            ws.Cells(i, "K").Value = daysRemaining
            ' Ajouter les détails à la variable de message uniquement si la colonne L n'est pas "TRAITE"
            If ws.Cells(i, "L").Value <> "TRAITE" Then
                message = message & "FACTURE NON REGLEE - " & ws.Cells(i, "A").Value & vbCrLf & "Jours restants : " & daysRemaining & " jours" & vbCrLf
                nonRegleCount = nonRegleCount + 1 ' Incrémenter le compteur
            End If
        End If
    Next i
   
   
    ' Afficher toutes les informations en une seule MsgBox avec le nombre de factures non réglées dans l'en-tête
    MsgBox "Nombre de factures non réglées : " & nonRegleCount & vbCrLf & vbCrLf & message, vbCritical, "Relance"
End Sub
Cliquez pour agrandir...
Bonsoir Eric,

Un grand merci à vous, tout nickel super.

Bonne soirée à vous
 
Vote positif 0 Vote négatif
Y

YOUYOU25

XLDnaute Junior
sousou à dit:
Bonjour,
Tu calcules date d'écheance après le nombre de jour alors!!!!
Déplace ton calcul d'échéance

For i = 2 To lastRow
If ws.Cells(i, "D").Value <= currentDate And IsNumeric(ws.Cells(i, "H").Value) Then
' Calculer les jours restants
Dim daysRemaining As Long
ws.Cells(i, "I").Value = ws.Cells(i, "D").Value + ws.Cells(i, "H").Value
daysRemaining = DateDiff("d", currentDate, ws.Cells(i, "I").Value)
' Afficher les jours restants en colonne K
Cliquez pour agrandir...
Bonsoir Sousou,

Merci pour votre aide à ts les 2.

Trés bonne soirée à vs
 
Vote positif 0 Vote négatif

Discussions similaires

J
  • Question
Microsoft 365 exécuter une formule dont le nom est dans une autre cellule
Réponses
5
Affichages
332
JVOS
J
W
  • Résolu(e)
Microsoft 365 VBA Ajouter une colonne à droite avec mise en forme
Réponses
6
Affichages
194
fanch55
fanch55
J
  • Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
312
jerome91
J
T
  • Question
XL 2013 Colonne dynamique en fonction de choix d'une liste déroulante
Réponses
5
Affichages
581
JHA
J
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
372
CathyLD
C
C
  • Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
211
CS49
C
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
anthoYS
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
628
crocrocro
C
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
1 K
Banbara
B
S
  • Question
Microsoft 365 Mise en forme conditionnelle selon date
Réponses
3
Affichages
274
JHA
J

Membres actuellement en ligne

18 membres et 205 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 118
Messages
2 116 426
Membres
112 745
dernier inscrit
mcanas