Compter le nombre de valeurs uniques dans un range (macro)

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:

---

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:

---

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.

Bonjour,
Il n'y a pas besoin de VBA; il existe au moins une formule que l'on trouve dans de nombreux forums.
Les données étant inscrites dans la plage A1:A7, le nombre de valeurs distinctes est obtenu dans n'importe quelle cellule de la feuille avec la formule :

Code:

---

=SOMMEPROD(1/NB.SI(A1:A7;A1:A7))

---

Si l'on veut vraiment avoir l'obtention de ce nombre contenue daans du code, plutôt qu'une boucle, on pourra réécrire cette formule en employant ou non la fonction EVALUATE
et en utlisant la dénomination anglaise des fonctions SOMMEPROD (SUMPRODUCT ) et NB.SI (COUNTIF ).
Cordialement
Claude

Bonjour papouclo,

Je sais qu'il existe au moins 1.000 manière différentes de le faire par la feuille de calcul, mais le problème, est qu'il me faut le placer dans une macro VBA existante.

Mais j'ai trouvé la solution à mon problème.

Je ruse un coup.

Code:

---

1 2 3 4 5

Set iCoef = CreateObject("Scripting.dictionary") For Each c In .Range("B2:B" & .Range("B" & .Rows.count).End(xlUp).Row) If Not iCoef.Exists(c.Value) Then iCoef.Add c.Value, c.Offset(0, -1).Value Next c nbCoef = iCoef.count

---

Explications
Voici ma feuille en question :

Code:

---

1 2 3 4 5 6 7 8

tranche coefficient 22h-6h 1,5 6h-8h 1,25 8h-17h 1 17h-22h 1,25 samedi 1,5 dimanche 2 férié 2

---

Et je voulais donc compter le nombre de coefficient différent dans le range spécifié.
J'ai donc "tout simplement" créé une variable "iCoef" de type "scripting.dictionary", et ai ajouter les coefficients en tant que clé, mais en précisant que la clé ne devait pas exister lors de l'ajout

Code:

---

Not iCoef.Exists(c.Value)

---

Une fois mon dictionnaire compléter, un simple count et le tour est joué.

En espérant que cette astuce permettra à certains d'entre vous d'avancer, je vous souhaite à tous de passer une excellente journée.