Rechercher une date et copier la ligne

Bonsoir,

je bosse en ce moment sur un projet pour un ami, c'est la première fois que je code en VBA et je manque de temps c'est pour cela que je demande votre aide, j'ai fait une partie du programme pour récupérer les informations qu'il me fallait, le problème je dois faire en sorte de trier les valeurs en groupe, mon but et de saisir une date et de récupérer la ligne des dates correspondantes, puis de les trier par groupes qui est EPY, CAV et REP et qui apparaitrons sur la feuil1.

Merci pour votre aide

Bonjour et bienvenue sur le forum

Un essai à tester si j'ai bien compris. Te convient-il ?

Option Explicit

Dim tablo, tabloR()
Dim i&, k&, k1&, k2&, k3&, col&, dte As Date

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$A$2" Then Exit Sub
    Range("A5").CurrentRegion.Offset(1, 0).ClearContents
    tablo = Sheets("brouillon").Range("A1").CurrentRegion
    ReDim tabloR(1 To UBound(tablo, 1), 1 To 3)
    dte = Range("A2")
    k1 = 0: k2 = 0: k3 = 0
    For i = 2 To UBound(tablo, 1)
        If DateSerial(Year(tablo(i, 1)), Month(tablo(i, 1)), Day(tablo(i, 1))) = dte Then
            If tablo(i, 3) = "EPY" Then
                col = 1
                tabloR(k1 + 1, col) = tablo(i, 2)
                k1 = k1 + 1
            ElseIf tablo(i, 3) = "CAV" Then
                col = 2
                tabloR(k2 + 1, col) = tablo(i, 2)
                k2 = k2 + 1
            ElseIf tablo(i, 3) = "REP" Then
                col = 3
                tabloR(k3 + 1, col) = tablo(i, 2)
                k3 = k3 + 1
            End If
            k = k + 1
        End If
    Next i
    Range("A5").CurrentRegion.Offset(1, 0).ClearContents
    k = Application.Max(k1, k2, k3)
    On Error Resume Next
    Range("A6").Resize(k, 3) = tabloR
    Range("A2").Select
End Sub

Bye !

Bonjour,
Une autre proposition.
Réalisée avec Power Query et TCDs (tableaux croisés dynamiques).
Cdlt.

Bonsoir, désolé pour l'attente et un grand merci à vous, j'ai regardé vite fait et c'est vraiment génial, je vais regarder ça plus en profondeur demain et je vous dis si j'ai des questions, aussi je voudrais bien savoir comment vous avez fait car j'ai essayé de re bosser deçu et à chaque fois je me tape des erreurs que je ne comprends pas, en tous cas encore merci à vous.