Discussion :

[wyzer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[le_dilem]

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
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

[wyzer]

Merci beaucoup, ça fonctionne !!