Fonction à améliorer + compatibilité MAC

[tete-jaune]

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.

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

 

[tete-jaune]

Re : Fonction à améliorer + compatibilité MAC

Bonjour Dan,
Si en effet c'est le même problème mais c'est moi qui l'ai posté 😉
Toujours aucune solution snif snif
C'est bizarre comme problème quand même.