XL 2016 Création d'un tableau récapitulatif

[dalia.rml]

bonjour, désolée de vous déranger. Je souhaiterais obtenir de l'aide concernant la création d'un tableau récapitulatif.
Je souhaiterais créer un document excel avec de multiples feuilles numérotés par mois avec toutes les dépenses mensuelles effectuées (payée ou non) et une feuille récapitulative de toutes celles-ci qui mentionne les dépenses "non payées". Toutefois lorsque j'essaie de créer ce document on me propose d'utiliser de la "macro" et je ne sais pas comment faire.
Merci à ceux qui prendront le temps de me répondre et de m'aider.

 

[chris]

Bonjour

"de multiples feuilles numérotés par mois" c''est très flou comme description.

Si tu veux une aide efficace il faut poster une exemple de fichier représentatif

 

[dalia.rml]

Bonjour, ce sont des feuilles comme celle ci-jointe. Désolée si ce n'est pas très clair.

 

[gosselien]

Bonjour, ce sont des feuilles comme celle ci-jointe. Désolée si ce n'est pas très clair. Regarde la pièce jointe 1224802

Un exemple veut dire un fichier XLS anonymisé... pas des photos ou copie écran 🙁

 

[dalia.rml]

Un exemple veut dire un fichier XLS anonymisé... pas des photos ou copie écran 🙁

je suis vraiment pas bonne en excel et je trouve que c'était une bonne idée. Une image vaut mieux que mon explication "pas claire"...

 

[sylvanu]

Bonjour,

je trouve que c'était une bonne idée. Une image vaut mieux que mon explication "pas claire".

Mais cela veut dire que le contributeur devra créer un fichier (alors que vous l'avez sous la main), avec toutes les erreurs possibles .
Ce qui conduira à de multiples allers retours, et pour le contributeur a de multiples reworks.
Ceci dit, une solution par macro est une solution simple pour résoudre le problème, et vous n'aurez pas besoin d'y toucher.

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @dalia.rml
Bon je vois que tu ne proposes pas de fichier exemple ...
Je te fais une proposition dans le fichier ci joint.

Les feuilles mensuelles sont nommées "année sur 4 chiffres - mois sur 2 chiffres" (aaaa-mm)
Elles contiennent un tableau structuré (TS) pour recueillir tes données
Une fonction personnaliser "MoisCourant(réf)" renvoie sous forme de libellé en majuscule le mois de la feuille mensuelle (pour le titre), ça c'est un gadget !

La feuille "Récap non payées" renvoie les échéances impayées de toutes les feuilles mensuelles (repérées par "NON" dans la colonne "Payé"
Elle est mise à jour lors de son activation (son événement "Worsheet_Activate") ou en cliquant sur le bouton "Actualiser".
On peut faire un RàZ avec le bouton "Vider"

Les macros (module mdl_AtTheOne):

Function MoisCourant(réf As Range)
     Application.Volatile
     MoisCourant = UCase(Format(DateValue(réf.Worksheet.Name), "mmmm yyyy"))
End Function

Sub Actualiser()
     nbcols = 8
     Dim wsh As Worksheet, LO As ListObject, champ As Integer, tbRés()
     For Each wsh In ThisWorkbook.Worksheets
          If wsh.Name Like "####-##" Then
               Set LO = wsh.ListObjects(1)
               champ = LO.ListColumns("Payé").Index
               Tb = Evaluate(LO.Name).Value2
               For i = 1 To UBound(Tb)
                    If Tb(i, champ) = "NON" Then
                         Compteur = Compteur + 1
                         ReDim Preserve tbRés(1 To nbcols, 1 To Compteur)
                         For j = 1 To nbcols
                              tbRés(j, Compteur) = Tb(i, j)
                         Next j
                    End If
               Next i
          End If
     Next
     Set LO = sh_Récap.ListObjects(1)
     Set Rg = Evaluate(LO.Name)
     Rg.Rows.ClearContents
     LO.Resize LO.Range.Resize(2)
     If Compteur > 0 Then
          LO.Resize LO.Range.Resize(Compteur + 1)
          Evaluate(LO.Name).Value2 = WorksheetFunction.Transpose(tbRés)
     End If

End Sub

Sub Vider()
     Dim LO As ListObject
     Set LO = sh_Récap.ListObjects(1)
     Set Rg = Evaluate(LO.Name)
     Rg.Rows.ClearContents
     LO.Resize LO.Range.Resize(2)
End Sub

L'événement Activate :

Private Sub Worksheet_Activate()
     Actualiser
End Sub

Voir le fichier joint

À bientôt