Bonsoir,

J'ai beau chercher, je n'arrive pas à trouver une solution à mon problème et espère que l'un d'entre vous pourra m'aider.
J'ai créé la fonction ci-dessous afin que ma fonction "recherche" me rapporte plusieurs valeurs les unes en dessous des autres (dans des lignes différentes).
Jusque là tout marche parfaitement bien.
Mais là gros problème j'ai un champs pour lequel il n'y a qu'une valeur lors de ma recherche.
Donc au lieu de ne m'indiquer cette valeur dans la ligne 1.
Il m'indique l'unique valeur dans toutes les lignes concernées par ma fonction.

Je souhaiterais qu'il m'indique la valeur unique dans la ligne 1 et que dans les lignes en dessous soient vides ou indique N/A.

Quelqu'un pour m'aider, svp ?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Function VLookUpListSplitPerCells(ValeurRecherchee As Range, TableDeRecherche As Range, NumColonne As Integer, Optional Separator As String) As Variant
 
Dim NbLignes As Integer
NbLignes = TableDeRecherche.Rows.Count
 
Dim CompteurValeursTrouvees As Integer
CompteurValeursTrouvees = 0
 
If Separator = "" Then Separator = ";"
 
Dim ChaineValeursTrouvees As String
 
For i = 1 To NbLignes
    If TableDeRecherche(i, 1).Value = ValeurRecherchee.Value Then
        CompteurValeursTrouvees = CompteurValeursTrouvees + 1
        If CompteurValeursTrouvees > 1 Then
            ChaineValeursTrouvees = ChaineValeursTrouvees & Separator & TableDeRecherche(i, NumColonne).Value
        Else
            ChaineValeursTrouvees = TableDeRecherche(i, NumColonne).Value
               End If
    End If
Next i
 
VLookUpListSplitPerCells = Application.WorksheetFunction.Transpose(Split(ChaineValeursTrouvees, Separator))
 
End Function