XL 2010 Recherche selon 2 critères

[Johan]

Bonjour,

Je souhaite récupérer les infos d'une ligne, un peu comme une rechercheV ou un Index/Equiv mais avec DEUX critères, du fait qu'un des deux critères peut-être commun à une recherche...

Exemple :
Je souhaite renseigner un client et un contrat

Client : x
Contrat : y

Et dans mon tableau de recherche j'aurais :
Client x / Contrat y / info 1 / info 2 / ...
Client x / Contrat z / info 1 / info 2 / ...

Un seul critère ne suffit donc pas. J'ai commencé un bout de macro qui ne me mène pas bien loin...

Sub recherche()

Dim Client As Integer
Dim Contrat As Integer
Dim plageCriteres As Range
Set plageCriteres = Range("A1:E4")

Client = Sheets("Feuil1").Range("Client").Value
Contrat = Sheets("Feuil1").Range("Contrat").Value

For Each cell In plageCriteres
    If cell.Value = Client And cell.Offset(0, 1).Value = Contrat Then
        Range("I9") = cell.Offset(0, 2).Value
        Range("I10") = cell.Offset(0, 3).Value
        Range("I11") = cell.Offset(0, 4).Value
    End If
Next

End Sub

Idéalement j'aimerais que cela se fasse en événementiel plutot que de lancer via un bouton

Je laisse le fichier en exemple.

Merci à vous

 

[herve62]

Bonjour
je ne vois pas bien les critères (données) qu'il faut entrer ou rechercher : client et contrat ensemble ??
Sinon dans la sub client et contrat sont déclarés Integer et on retrouve Range("client") etc .. ???
j'ai juste modifié les noms pour que la sub tourne
Est ce le résultat attendu .. ou autre ??

 

[phlaurent55]

Bonjour Johan,

voir fichier joint

à+
Philippe

Edit: Bonjour Hervé