[Fonction Perso] équivalent de RECHERCHEV avec caractères génériques et concaténation [FAQ]

[cafeine]

Avantages :

• caractères génériques supportés
• concaténation
• colonne récupérée n'appartenant pas au tableau "matrice" pouvant même être avant le tableau

Inconvénient :

• Plus lente que la fonction native RECHERCHEV / VLOOKUP

Exemple d'utilisation

Code :

=ConcatVLookUp("Frédéri*";A1:A500;2;VRAI;" - ")

ramène la deuxième colonne pour les Frédéric et Frédérique en concaténant les valeurs avec " - " comme séparateur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function ConcatVLookUp(ByVal ValRecherche, _
                       ByVal TabMatrice As Range, _
                       ByVal IndexCol, _
              Optional ByVal blnConcat As Boolean = False, _
              Optional ByVal Separateur = ";") As Variant
 
' Permet une recherchev sur des caractères génériques
'
Dim c As Range
 
application.Volatile
 
For Each c In TabMatrice.Cells
    If c.Value Like ValRecherche Then
        ConcatVLookUp = ConcatVLookUp & Separateur & c.Offset(0, IndexCol - 1).Value
        If Not blnConcat Then Exit For
    End If
Next c
ConcatVLookUp = Mid(ConcatVLookUp, Len(Separateur) + 1)
 
Set c = Nothing
End Function