Re : Recherche multicritère VBA
Bonsoir le forum, Modeste,
j'ai ajouté les 3 lignes qui détaillent pour le monsieur la ligne trouvée et les 3 colonnes en couleur...
ça devrait l'aider
P.
Sub trouveCorresp()
Z% = InputBox("Entrez le n° de zone")
D% = InputBox("Entrez le n° de Det")
Set trouve = Sheets("Test").[C:C].Find(What:=Z, LookAt:=xlWhole, LookIn:=xlValues)
If Not trouve Is Nothing Then
premAdresse = trouve.Address
Do
If trouve.Offset(0, 1) = D Then '
MsgBox ("la ligne est : ") & trouve.Row
trouve.Interior.ColorIndex = 6 ' colonne C
trouve.Offset(0, 1).Interior.ColorIndex = 6 ' colonne D
trouve.Offset(0, 2).Interior.ColorIndex = 6 ' colonne E
End If
Set trouve = Sheets("Test").[C:C].FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> premAdresse
End If
End Sub