VBA RechercheV avec 2 critères

Bonjour,

Je souhaiterais un petit coup de main, je souhaite mettre en macro une formule rechercheV avec 2 critères, j'ai mit un petit fichier pour vous montrer ce que j'aimerais réussir.

Merci pour votre aide

Salut,

Voici un code qui devrait faire l'affaire.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, k As Integer, DerLig As Integer

If Target.Count > 1 Then Exit Sub

If Not Application.Intersect(Target, Range("D7:E7")) Is Nothing Then
Application.EnableEvents = False
With Sheets("Base de données")
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To DerLig
        .Range("I" & i) = .Range("B" & i) & .Range("C" & i)
    Next i
        On Error Resume Next
        k = Application.WorksheetFunction.Match(Range("D7") & Range("E7"), .Range("I:I"), 0)

    If k = 0 Then
        MsgBox "Correspondance pas trouvée"
    Else
        For i = 4 To 8
            Cells(7, i + 2) = .Cells(k, i)
        Next i
    End If

    .Range("I:I").ClearContents
End With
End If

Application.EnableEvents = True

End Sub

Cordialement.

Bonjour David84, Yvouille

2 propositions dans le fichier joint, une par macro l'autre sans en utilisant BDLIRE.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Application.EnableEvents = False

With Range("F6:J6")
  .Formula = "=DGET('Base de données'!$A$1:$H$7,F$5,Recherche1!$D$5:$E$6)"
  .Value = .Value
End With

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

NB : Pas de lignes vides entre les titres et la recherche

EDIT : avec le code et le bon fichier

un grand merci à vous je vais pouvoir construire mon fichier avec grâce à vous.

Merci