Discussion :

[AniMo68]

bonjour,
J'essaie de rechercher l'item "1122731" dans la colonne "B" dans la colonne "L" mais mon problème ce que mon VBA lookuplist, me donne le résultat dans la même colonne séparer par ";" ce qui rends la recherche impossible. Avez-vous une solution soit de séparer le résultat dans des colonnes séparées ou être capable de trouver l'information par une formule quelconque . Je vous mets une copie de mon VBA au cas ou.

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
Function VLookUpList(ValeurRecherchee As Range, TableDeRecherche As Range, NumColonne As Integer, Separator As String) As Variant
 
Dim NbLignes As Integer
NbLignes = TableDeRecherche.Rows.Count
 
Dim CompteurValeursTrouvees As Integer
CompteurValeursTrouvees = 0
 
For i = 1 To NbLignes
    If TableDeRecherche(i, 1).Value = ValeurRecherchee.Value Then
        CompteurValeursTrouvees = CompteurValeursTrouvees + 1
        If CompteurValeursTrouvees > 1 Then
            VLookUpList = VLookUpList & Separator & TableDeRecherche(i, NumColonne).Value
        Else
            VLookUpList = TableDeRecherche(i, NumColonne).Value
        End If
    End If
Next i
 
End Function