1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Option Explicit
Public Function address(nom As String, prenom As String)
Dim rng As Range
Dim last As Range
Dim rech As Range
With Worksheets("Feuil10")
Set rng = .Range("A1")
Set last = .Columns(1).Find("*", , , , , xlPrevious)
Do While True
Set rech = .Range(rng, last).Find(nom, LookIn:=xlValues, LookAt:=xlWhole)
If Not rech Is Nothing Then
If rech.Offset(0, 1) = prenom Then
address = rech.Offset(0, 3)
Exit Function
Else
Set rng = rng.Offset(1, 0)
End If
Else
address = "#N/A"
Exit Function
End If
Loop
End With
End Function |
Partager