Macro qui compte les valeurs distinctes

Bonjour,

Comme c'est impossible de compter les valeurs distinctes dans un tableau croisé dynamique, je vais m'y prendre autrement

Je souhaiterais rajouter une colonne où il y a aura une formule qui calcule le nombre de valeur distincte

Exemple :

Avant (colonne A = n° client, colonne B = département) :

Code:

---

1 2 3 4 5 6 7 8 9

colonne A colonne B   7200 92 7200 92 7200 92 9500 92 9500 92 3100 75 4700 75

---

Après :

Code:

---

1 2 3 4 5 6 7 8 9

colonne A colonne B colonne C   7200 92 2 7200 92 7200 92 9500 92 9500 92 3100 75 2 4700 75

---

C'est à dire :

2 clients dans le 92
2 clients dans le 75

Comme ça je pourrais me servir de la colonne C dans mon TCD


Merci par avance !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub TEST()   Dim I, j, C   I = 2 j = 1 C = 2 While Range("A" & I) <> "" If Range("B" & I) = Range("B" & I + 1) And Range("A" & I) <> Range("A" & I + 1) Then j = j + 1 End If   If Range("B" & I) <> Range("B" & I + 1) Then   Range("c" & C) = j j = 1 C = I + 1 End If I = I + 1   Wend   End Sub

---

Merci beaucoup, ça fonctionne !!