Discussion :

[coolhead]

Bonjour,

J'ai un tableau des produits achetés par différentes enseignes, à différente dates; avec le montant type.

Avec un tableau croisée dynamique, je peux rapidement générer la répartition des ventes par produit et enseignes.
Je peux aussi croiser le nombre de produits vendus par type et enseigne.

Mais je ne parviens pas afficher le nombre d'enseignes qui achète tel ou tel produit.

Pièce jointe 143678

Le total général délivré par les croisés dynamiques, lorsque on fonction en NB (nombre), addition les nombres.
Évidement logique pour le cas numéro 2. Mais comment faire un total général correspondant au nombre de valeur du tableau croisé ?

J'ai ajouté un champ nbval (ou nb.si...) mais celui ci n'est pas partie intégrante du tableau croisé et saute à chaque mise à jour.

Merci pour le support de quelques uns d'entre vous !

[Invité]

J'ai ajouté un champ nbval (ou nb.si...) mais celui ci n'est pas partie intégrante du tableau croisé et saute à chaque mise à jour.

Bonjour,

Si votre TCD est toujours de cette forme (sans sous-totaux), les macros suivantes remettent en place les formules NbVal en dessous du TCD

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
24
25
26
27
28
29
30
Sub TestCalculerLeNombredEnseignesParProduit()
 
    CalculerLeNombredEnseignesParProduit Sheets("Tbl"), Sheets("Tbl").PivotTables("Tableau croisé dynamique5")
 
End Sub
 
 
Sub CalculerLeNombredEnseignesParProduit(ByVal FeuilleEncours As Worksheet, ByVal Pvt As PivotTable)
 
Dim TitrePvt As Long
Dim DerniereLignePvt As Long
Dim PremiereColonneDonneesPvt As Long
Dim DerniereColonneDonneesPvt As Long
 
Dim AireCalculProduits As Range
Dim CelluleCalculProduits As Range
 
    TitrePvt = Pvt.RowRange.Row
    PremiereColonneDonneesPvt = Pvt.DataBodyRange.Column
    DerniereColonneDonneesPvt = Pvt.DataBodyRange.Column + Pvt.DataBodyRange.Columns.Count - 1
    DerniereLignePvt = Pvt.TableRange1.Row + Pvt.TableRange1.Rows.Count - 1
    With FeuilleEncours
         Set AireCalculProduits = .Range(.Cells(DerniereLignePvt + 1, PremiereColonneDonneesPvt), .Cells(DerniereLignePvt + 1, DerniereColonneDonneesPvt))
         For Each CelluleCalculProduits In AireCalculProduits
             CelluleCalculProduits.FormulaR1C1 = "=COUNTA(R[" & (TitrePvt + 1) - CelluleCalculProduits.Row & "]C:R[" & (DerniereLignePvt - 1) - CelluleCalculProduits.Row & "]C)"
         Next CelluleCalculProduits
         Set AireCalculProduits = Nothing
    End With
 
End Sub

Cordialement.