XL 2019 echeance de paiements

[Ferdi5115]

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

 

[bof]

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+

 

[job75]

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 :

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+

 

[Ferdi5115]

Bonsoir bof, Bonsoir job75,

merci pour vos réponses rapides.

j'utilise xl2016 sur poste et 2019 sur un second. Je vais essayer ces deux versions

Encore merci je vous refais un retour.

 

[Ferdi5115]

Je suppose qu'il faut que je me remette aux macros...

Les 2 solutions me conviennent très bien!

Commet je peux accéder aux codes des fichiers, je pense que je vais mixer les deux solutions