Find match double

Bonjour,

je cherche à obtenir des informations d'une feuille en colonne C et D

Pour se faire je dois identifier les lignes concernées

En ma possession deux champs autres connues

Project_ID = TblBD(i, 1)
periodid = TblBD(i, 2)

j'ai donc commencé un code

nomtableau = "T_Reports"
TblBD = Range(nomtableau)

  For i = 1 To UBound(TblBD)

If TblBD(i, 7) > Now And TblBD(i, 7) <= Now + 56 And TblBD(i, 10) = "Y" Then
Project_ID = TblBD(i, 1)
periodid = TblBD(i, 2)

Range = Application.Match(Project_ID, Worksheets("Staff").Range("A:A"), 0)

MsgBox (Range)

End If
Next

je ne parviens pas à identifier les bonnes lignes pour pouvoir en récupérer les informations requises

Aussi comment faire pour chercher dans feuille staff les lignes ayant pour condition que colonne A = Project_ID et Colonne H = periodid

En effet ici je ne fais que la recheche que sur colonne A

Il peut y avoir plusieurs lignes concernées pour information

Merci à vous pour vos conseils

bonne soirée

Bonjour,

Sub test()
Dim plage As Range, valeur1 As Variant, valeur2 As Variant, decalage As Integer
    Set plage = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    valeur1 = "abcd"
    valeur2 = "xx"
    decalage = 7 '(de A à H)
    With plage
        Set ici = .Find(valeur1, LookIn:=xlValues)
        If Not ici Is Nothing Then
            prem = ici.Address
            Do
                If ici.Offset(0, decalage) = valeur2 Then MsgBox "ligne " & ici.Row
                Set ici = .FindNext(ici)
            Loop While Not ici Is Nothing And ici.Address <> prem
        End If
    End With
End Sub

on peut aussi faire un filtre (c'est plus simple)

merci à vous steelson