XL 2019 Macro ' bouton )pour analyse base de données

[Davkrys]

Bonjour à vous,

Je souhaiterai vous expliquer ce dont j'aurai besoin.
Ci joint un fichier excel dans lequel il y a 2 onglets:
1er onglet feuil1 qui corresponds à une synthèse de feuil2
2ème onglet c'est la base de données

je vais essayer d'être clair: je souhaiterai avoir un ou plusieurs boutons dans feuil1 qui me permets d'extraire dans la colonne A de feuil2
Il y a différent type "non terminé", "en retard de planification", terminé sans rapport", "à facturer", "planifié".
Si je souhaite avoir en exemple "planifié" , j'aimerai que ce bouton m'indique dans la feuil1 colonne C le total des euros planifié qui se trouve dans la colonne AM de feuil2 et ainsi de suite.
Attention cette base de données change tous les jours et j'aimerai également faire une extraction tous les jours par mois dans feuil1, comme indiqué pour le mois de février

Voilà n'hésitez pas à me poser des questions si cela n'est pas clair.

Merci bcp pour votre aide

David

 

[sylvanu]

Bonjour Davkrys,
J'ai vraiment pas tout compris, alors juste un essai pour avancer pour :

avoir un ou plusieurs boutons dans feuil1 qui me permets d'extraire dans la colonne A de feuil2

Un essai en PJ. En Feuil2 on choisit la phase à extraire dans la liste déroulante en jaune, le reste est automatique. la somme du total facturation est en H1. Avec dans Feuil2 :

Option Explicit: Option Base 1
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B1]) Is Nothing Then
        Extraire
    End If
End Sub
Sub Extraire()
    Dim Phase$, T, T2, i%, j%, IndT2%
    [A5:CA65000].ClearContents                      ' Efface tableau actuel
    Phase = [B1]
    T = Sheets("Feuil3").[A1].CurrentRegion         ' Transfert BDD dans array
    ReDim T2(UBound(T), UBound(T, 2))               ' Dimension tableau de sortie
    IndT2 = 1
    For i = 2 To UBound(T)
        If T(i, 1) = Phase Then                     ' Si Status=celui attendu
            For j = 1 To UBound(T, 2)               ' Tranefert données dans array de sortie
                T2(IndT2, j) = T(i, j)
            Next j
            IndT2 = IndT2 + 1
        End If
    Next i
    [A5].Resize(UBound(T2, 1), UBound(T2, 2)) = T2  ' Restitution résultat dans feuille
End Sub

 

[Davkrys]

Bonjour Sylvanu,

Oui ce n'est pas facile à expliquer
Cette extraction je souhaiterai l'avoir dans Feuil1
Cette base de données je l'extrait tous les jours donc j'écrase les données précédente
Dans la feuil 1 tu as une colonne avec les critères planifié, etc...
J'aimerai que cela s'incrémente tous seul dans feuil1

Merci bcp pour ton aide