XL 2016 Mise à jour colonne EXCEL et MSGBOX

Créer une discussion
Répondre

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
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

Trier par date Trier par votes
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
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
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
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
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

W
  • Résolu(e)
Microsoft 365 VBA Ajouter une colonne à droite avec mise en forme
Réponses
6
Affichages
225
fanch55
fanch55
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
244
CS49
C
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
109
Leina
L
L
  • Question Question
Microsoft 365 mise en forme fichier excel power query
Réponses
1
Affichages
162
vgendron
vgendron
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
420
CathyLD
C
T
  • Question Question
XL 2013 Colonne dynamique en fonction de choix d'une liste déroulante
Réponses
5
Affichages
634
JHA
J
J
  • Question Question
Microsoft 365 exécuter une formule dont le nom est dans une autre cellule
Réponses
5
Affichages
376
JVOS
J
3
  • Question Question
XL 2013 modification de la mise en forme à chaque mise à jour de mon graphique croisé dynamique
Réponses
3
Affichages
324
chris
chris
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
714
crocrocro
C
Raziel abel
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
219
Raziel abel
Raziel abel
J
  • Question Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
368
jerome91
J
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
61
LegVal
L
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
588
HANN
H
L
  • Question Question
XL 2010 Filtrer et mise en couleur de cellules sur une colonne
Réponses
8
Affichages
622
sylvanu
sylvanu
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
208
sylvanu
sylvanu
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
G
  • Question Question
Microsoft 365 Macro VBA - mise en forme export excel
Réponses
6
Affichages
484
gpera
G
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
70
CDALE
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
123
JJ69
J
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
72
StéphaneDeLà
S
Retour