Recherche périodique

salut SVP

j'ai une base de donnée qui comporte la vente d'une année alors ce que je veut c'est faire une recherche de telle sort que excel me donne les ventes d'un mois que je choisi avec la date de chaque jour et tout les informations qui suit par exemple quand je demande le mois mars je vois affiché devant moi toute l'activité de moi 3 avec la date de chaque journée et les référence si il existe le produit le prix unitaire le total et ...

et merci

Bonjour,

Pour ce genre de problème, il y a plusieurs pistes possibles ...

Mais, comme tu as déjà une base de données, je te conseille d'utiliser un Tableau Croisé Dynamique (TCD) ...

Pour l'analyse de données, c'est absolument fabuleux !!!

salut

merci pour votre repense James007mais ce que je saie que le tcd en ne peut pas le modifier une foi remplit, ou bien je me trempe?

Bonjour,

Effectivement, le Tableau Croisé Dynamique permet d'analyser les données et pas de les modifier ...

Bonjour,

ce que je saie que le tcd en ne peut pas le modifier une foi remplit, ou bien je me trempe?

Le TCD est par définition dynamique, et il s'actualise avec l'évolution des données sources.

Merci de joindre un fichier pour avoir une aide personnalisée.

Cdlt.

nb : veille à utiliser la vérification d'orthographe?

salut

merci pour la participation

voila j'ai envoyé le fichier excel que je veut complété j'ai essayé d'expliqué le plus simplement possible ce que je veut et j’espère que qlq'unn m'aiderai a résoudre ce problème.

merci

salut

j'ai reçu de l'aide depuis un autre forum de l’a-part de qlq'un qui ce nom DoubleZero son aidée est génial mais ce que je veut c'est qu mon résultat soit dans une autre onglet et je le renom Consultation pour donné plus distinction a mon programme.Alors si qlq'un a une suggestion je suis preneur

Merci

je joint le fichier que j'ai reçu

Bonjour,

Une proposition...

Option Explicit
Option Private Module
Public Sub nouveau()
Dim wsNew As Worksheet, wsData As Worksheet, wsPT As Worksheet
Dim lo As ListObject
Dim lRow As Long

    Application.ScreenUpdating = False

    Set wsNew = Worksheets("Nouveau")
    Set wsData = Worksheets("BD")
    Set wsPT = Worksheets("consultation")
    Set lo = wsData.ListObjects(1)

    With wsData
        If lo.AutoFilter.FilterMode Then lo.AutoFilter.ShowAllData
        lRow = .Cells(Rows.Count, 1).End(xlUp).Row
        lo.ListRows.Add (1)
        .Cells(2, 1) = lRow
        .Cells(2, 2) = wsNew.Cells(5, 3)
        .Cells(2, 3) = wsNew.Cells(7, 3)
        .Cells(2, 4) = wsNew.Cells(8, 3)
        .Cells(2, 5) = wsNew.Cells(10, 3)
    End With

    wsPT.PivotTables(1).RefreshTable

    Set wsNew = Nothing: Set wsData = Nothing: Set wsPT = Nothing
    Set lo = Nothing

End Sub
Public Sub suprimer_la_derniere_ecrture()
Dim wsNew As Worksheet, wsData As Worksheet, wsPT As Worksheet
Dim lo As ListObject

    Application.ScreenUpdating = False

    Set wsNew = Worksheets("Nouveau")
    Set wsData = Worksheets("BD")
    Set wsPT = Worksheets("consultation")
    Set lo = wsData.ListObjects(1)

    Select Case MsgBox("Voulez-vous effacer La dernière écriture?", vbYesNo, "Confirmation de suppression")
        Case Is = vbNo
            Exit Sub
        Case Else
            With wsData
                If lo.AutoFilter.FilterMode Then lo.AutoFilter.ShowAllData
                .ListObjects(1).ListRows(1).Delete
            End With
            wsNew.Range("C5,C7:C8,C10").ClearContents
            wsPT.PivotTables(1).RefreshTable
    End Select

    Set wsNew = Nothing: Set wsData = Nothing: Set wsPT = Nothing

End Sub

salut

grand merci pour l'aide que j'ai reçu mon problème est résolu merci infiniment

encore merci