Bonjour a vous,

J'ai un besoin particulier afin de pouvoir recherche dans une plage une valeur qui contient l'élément de départ.


Exemple, je dirais que ma valeur a trouver dois avoir 4 éléments identique de ma valeur de départ. Par exemple ma valeur de départ ce serais col6589, et les résultats pourrais etre col6, 6589, ol65 mais non les élément non juxtaposé (c659, ol89, ...)

Le résultat devrais etre dans une cellule unique dont chacun des éléments est sur une ligne différente.


On pourrais ajouter l'élément de code a la fonction ci-dessous (on enlèverai du meme coup les doublons)

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
27
28
29
Function rmultUnique(valeurachercher As Variant, plageachercher As Range, numcolonne As Long) As String
Dim u As Variant
Dim nb As Long
Dim boucle As Long
 
Dim tabval() As Variant
 
ReDim tabval(plageachercher.Rows.Count)
 
nb = 1
u = ""
For boucle = 1 To plageachercher.Rows.Count
    If plageachercher(boucle, 1) = valeurachercher Then
        tabval(nb) = plageachercher(boucle, numcolonne)
        nb = nb + 1
    End If
Next boucle
For i = 1 To nb - 1
   For j = i + 1 To nb - 1
      If tabval(i) = tabval(j) Then tabval(j) = ""
   Next j
Next i
For i = 1 To nb
   If tabval(i) <> "" Then u = u & tabval(i) & Chr(10)
Next i
If Right$(u, 1) = Chr(10) Then u = Left$(u, Len(u) - 1)
 
rmultUnique = u
End Function

merci encore une fois pour votre aide !!!