Microsoft 365 Données reportées en fonction de la date choisie

[306255]

Bonjour à tous,

J'aimerais lorsque je choisis une date en "recherche D3", que les informations de" pac 24" soient reportées comme dans l'exemple en pj.

Merci d'avance pour votre aide

A bientôt

 

[vgendron]

bonjour..
avec le fichier présenté (lequel contient des cellules fusionnées vide, et des résultats "erreur"

Sub ListeAction()
    Dim DicoInfo As Object
    Dim Jour As Date
    Jour = Sheets("Recherche").Range("D3")
    Set DicoInfo = CreateObject("scripting.dictionary")
 
    With Sheets("Pac 24")
        Lastline = .UsedRange.Rows.Count
        Set trouve = .Rows(3).Find(Jour)
        If Not trouve Is Nothing Then
            col = trouve.Column
         
            For i = 4 To Lastline
                If IsError(.Cells(i, col)) Then
             
                ElseIf .Cells(i, col) <> "" Or .Cells(i, col).MergeCells Then
                    clé = .Cells(i, col).MergeArea.Cells(1, 1).Value
                    If IsError(clé) Then
                    ElseIf clé <> "" Then
                        If Not DicoInfo.exists(clé) Then DicoInfo.Add clé, i
                    End If
                End If
             
            Next i
        End If
    End With
 
    With Sheets("Recherche")
        Lastline = .Range("D" & .Rows.Count).End(xlUp).Row + 1
        .Range("D5:D" & Lastline).Clear
        .Range("D5").Resize(DicoInfo.Count) = WorksheetFunction.Transpose(DicoInfo.keys)
    End With
End Sub