Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 echeance de paiements

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 !

Ferdi5115

XLDnaute Nouveau
Bonjour,

J'espère que je ne fais pas de doublon, j'ai cherché dans le forum mais j'ai rien trouvé qui s'apparente à ma demande.


J'aimerais rentrer mes factures d'achats tous les mois dans des onglets à part et avoir un onglet récap qui me signale les échéances dépassés ou à venir afin de faire un prévisionnel trésorerie.

Bien cordialement,

Ferdi
 

Pièces jointes

Bonjour,

Pour moi un prévisionnel trésorerie c’est d’abord une base de données qui recense toutes les factures et les dates d’échéance.

Une feuille avec une quinzaine de colonnes (une par mois) ou mieux une cinquantaine qui dispatche ces échéances semaine par semaine.

Il faut indiquer ta version d’Excel et indiquer si tu es macro-compatible…

A+
 

Pièces jointes

Bonsoir Ferdi5115, bienvenue sur XLD, bonsoir bof,

Si je comprends bien il s'agit de récupérer dans la feuille A PAYER les factures NON payées.

Alors il suffit de filtrer les feuilles des mois sur la colonne F, voyez le code de la feuille A PAYER :
VB:
Private Sub Worksheet_Activate()
Dim ligdeb&, lig&, w As Worksheet, n&
ligdeb = 5
lig = ligdeb
Application.ScreenUpdating = False
Rows(lig & ":" & Rows.Count).Delete 'RAZ
For Each w In Worksheets
    If IsDate("1 " & w.Name) Then
        n = Application.CountIf(w.Columns(6), "NON")
        If n Then
            With w.Range("A3:H" & w.Cells.SpecialCells(xlCellTypeLastCell).Row)
                .AutoFilter 6, "NON" 'filtre automatique
                .Copy Cells(lig, 1)
                .AutoFilter 'ôte le filtre
            End With
            lig = lig + n + 1
        End If
    End If
Next
With Range("A" & ligdeb & ":H" & lig - 1)
    If .Row = ligdeb Then .Borders.Weight = xlThin
    .RemoveDuplicates Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo 'supprime les lignes doublons
    .Resize(, 5).Columns.AutoFit 'ajustemen largeurs colonnes A à E
End With
End Sub
Il s'exécute quand on active la feuille.

A+
 

Pièces jointes

- 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

Réponses
2
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…