Macro boite de dialogue

Bonjour,

j'ai un fichier qui comporte une feuille par jour au format jj-mm-aaaa

en ligne 29 dans la plage D29:P29 est renseigné pour chaque colonne les chiffres 0 ou 1.

Ces colonnes désignent les machines, 1 signifie qu'à ce jour là il y a eu une panne , 0 signifie pas de panne à ce jour.

alors j'aimerais avoir une sorte de rapport: en choisissant une date bien déterminée ça me donne pour chaque machine combien il y avait de pannes depuis la date choisie

ci joint la capture d'une feuille

si quelqu'un parmi vous connait le code convenable ça me serait très utile

je vous remercie par avance

bien cordialement

Bonjour,

as-tu un fichier test, ce serait plus pratique

ce que je te propose, est de faire une base de données qui regroupe

• le nom de feuilles de type date
• les en-têtes (ligne 13)
• l'indicateur (ligne 29)

et ensuite de faire un TCD

Sub recap()
Dim f As Worksheet
Sheets("BdD").Select
Range("A1").CurrentRegion.Offset(1, 0).Clear
ligne = 2
For Each f In Worksheets
    If f.Name Like "??-??-????" Then
        For col = 1 To f.Cells(13, Columns.Count).End(xlToLeft).Column
            Cells(ligne, 1) = DateSerial(Mid(f.Name, 7, 4), Mid(f.Name, 4, 2), Mid(f.Name, 1, 2))
            Cells(ligne, 2) = f.Cells(13, col)
            Cells(ligne, 3) = f.Cells(29, col)
            ligne = ligne + 1
        Next
    End If
Next
Sheets("TCD").Select
ActiveSheet.PivotTables(1).PivotCache.Refresh
End Sub

ou, avec des regroupements sur les dates

Re,

merci de votre retour!

ci joint le fichier

je ne sais pas comment manipuler un tcd si vous pouvez m'expliquer le pricipe un peu, merci encore

le but c'est de surveiller le nombre de pannes sur une longue durée c'est pour cela que j'ai voulu choisir une date puis ça retourne le nombre de pannes de chaque machine depuis cette date jusqu'à la fin des données dans le fichier

en raisonnant pour un seul mois ça ne reflète pas grand chose

ok

voici (sans TCD)

Re,

merci de votre solution

vue que ce fichier est alimentée de donnée chaque jour (12 mois)

est ce que la commande "mettre à jour" permet d'actualiser les données dans la feuille "BdD"?

j'ai essayé et ça marche nickel!

merci Steelson de votre aide précieuse !