Re : Blocage avec fonction VLOOKUP
bonjour Airone
'donne ce que tu cherches
Function INDEX_EQUIV(PlgRecherche As Range, ValCherchée, PlgEquivalence As Range)
'Alain Vallon, mpfe
With Application
If IsError(.Match(ValCherchée, PlgRecherche, 0)) Then
INDEX_EQUIV = ""
Else
INDEX_EQUIV = .Index(PlgEquivalence, .Match(ValCherchée, PlgRecherche, 0), 2).Value
End If
End With
End Function
'pour appeler
UserForm2.Label17.Caption = INDEX_EQUIV(Sheets("feuille_émargement").Range("B4:B80"),rech, Sheets("feuille_émargement").Range("B4:C80"))