Bonjour à tous,

Je souhaiterai tout simplement savoir, si il existe une fonction qui permette de compter le nombre de valeur unique distincte dans un range.

J'ai un range, composer des valeurs suivante (à titre d'exemple)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
1,5
1,25
1
1,25
1,5
2
2
Je souhaiterai, que dans le cas présent, il me donne le résultat 4, car 4 valeurs distincte sont présente dans le range.

J'ai trouvé une fonction sur un site :
Code VBA : 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
Sub CountUnique()
 
Dim count As Integer
Dim i, c, j As Integer
 
c = 0
count = 0
For i = 1 To 11
    Sheet1.Cells(i, 2).Value = Sheet1.Cells(i, 1).Value
    c = c + 1
    For j = 1 To c
        If CDbl(Sheet1.Cells(i, 1).Value) = CDbl(Sheet1.Cells(j, 2).Value) Then
            c = c - 1
            Exit For
        End If
    Next j
Next i
 
' c now equals the unique item count put in the 12'th row
Sheet1.Cells(12, 1).Value = c
 
End Sub
qui ne semble pas trop compliquée à adapter à mes besoins, mais je souhaiterai savoir si il n'existe pas un système "clé en main".

En vous remerciant pour l'aide que vous pourrez m'apporter, je vous souhaite à tous, de passer une superbe journée.