Discussion :

[braguy13]

dans un tableau du type 5 colonnes et 3 lignes

1/ /2/1/ 3
/3/5/ /6
2/3/4/5/6

j'aimerais via une fonction ou macro récupérer la liste des valeurs distinctes

le résultat dans notre exemple :
1,2,3,4,5,6 sur le range A1:E3

avez vous une idée de comment faire simplement ?

Merci par avance
braguy13

[olaxius]

bonsoir,
Un petit bout de code bien pourri mais qui marche

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
 
Sub JAI_HONTE_MAIS_CA_DEPANNE()
vTbu = ";"
For Each vel In Selection
    vTbu = Split(vTbu, ";")
    vFlag = False
    For Each vel2 In vTbu
        If CStr(vel2) = CStr(vel) Then
            vFlag = True
            Exit For
        End If
    Next
    vTbu = Join(vTbu, ";")
    If vFlag = False Then
        vTbu = vTbu & ";" & vel
    End If
 
Next
vTbu = Right(vTbu, Len(vTbu) - 2)
Range("A1").value= vTbu
End Sub

A ciao