tete-jaune
XLDnaute Junior
Bonjour,
J'ai trouvé sur internet une fonction (que j'ai copié dans un module VB) qui permet d'effectuer une recherche, style recherchev, mais qui récupère tous les résultats correspondant à la valeur recherchée et les concatènent.
J'ai testé cette fonction et à priori elle fonctionne mais j'ai un petit soucis :
La fonction me retourne des valeurs qui font doublon, triplon, etc...
Ex : Divers - Divers - Divers - Catalogue - Catalogue - Catalogue - Catalogue - Catalogue
J'aimerai obtenir quelque chose du style : Divers - Catalogue
Est-ce possible? Si oui que faut-il modifier/ajouter dans la fonction "concatvlookup" pour obtenir le résultat voulu?
Question subsidiaire : Je travaille sur Excel 2004 pour MAC. Est-il possible que cette fonction ne soit pas entièrement compatible et me fasse planter Excel quand j'ouvre mon fichier?
Merci d'avance pour le temps que vous m'accorderez
J'ai trouvé sur internet une fonction (que j'ai copié dans un module VB) qui permet d'effectuer une recherche, style recherchev, mais qui récupère tous les résultats correspondant à la valeur recherchée et les concatènent.
Code:
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
J'ai testé cette fonction et à priori elle fonctionne mais j'ai un petit soucis :
La fonction me retourne des valeurs qui font doublon, triplon, etc...
Ex : Divers - Divers - Divers - Catalogue - Catalogue - Catalogue - Catalogue - Catalogue
J'aimerai obtenir quelque chose du style : Divers - Catalogue
Est-ce possible? Si oui que faut-il modifier/ajouter dans la fonction "concatvlookup" pour obtenir le résultat voulu?
Question subsidiaire : Je travaille sur Excel 2004 pour MAC. Est-il possible que cette fonction ne soit pas entièrement compatible et me fasse planter Excel quand j'ouvre mon fichier?
Merci d'avance pour le temps que vous m'accorderez