Nombre de cellule couleur dans un TCD

Bonjour tout le monde;

j'ai crée un TDC , avec mise en forme conditionnelle , je voudrais calculer le nombre de cellules colorées ainsi que leur somme

cordialement

Bonjour

Sur base du fichier joint, voici un code à utiliser

Sub Compte()
'Macro Dan 09/03/2017
Dim i As Byte
Range("H15:I15").ClearContents
With ActiveSheet.PivotTables(1).PivotFields("quantités").PivotItems
    For i = 1 To .Count
        If .Item(i) >= 1200 And .Item(i) <> "(blank)" Then Range("H15") = Range("H15") + 1
    Next
End With
With ActiveSheet.PivotTables(1).PivotFields("distances").PivotItems
    For i = 1 To .Count
        If .Item(i) >= 100 And .Item(i) <> "(blank)" Then Range("I15") = Range("I15") + 1
    Next
End With
End Sub

Si ok et terminé, merci de cloturer le fil en cliquant sur la case à cocher verte à coté du bouton EDITER lors de votre réponse

Cordialement

Bonjour,

Une variante, avec une procédure évenementielle.

Cdlt.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim dQty As Double, dKms As Double
Dim I As Long
    [H15,I15].ClearContents
    With Target
        With .PivotFields("quantités").PivotItems
            For I = 1 To .Count
                If IsNumeric(.Item(I)) And .Item(I) >= 1200 Then _
                   dQty = dQty + 1
            Next I
        End With
        With .PivotFields("distances").PivotItems
            For I = 1 To .Count
                If IsNumeric(.Item(I)) And .Item(I) >= 100 Then _
                   dKms = dKms + 1
            Next I
        End With
    End With
    [H15] = dQty: [I15] = dKms
End Sub

Avec un peu de retard

merci beaucoup Dan ça marche à merveille génial

merci Jean-Eric aussi j'ai pas encore essayé ton astuce vu que Dan s'en est occupé à merveille

Merci les amis

jean eric j'ai ouvert le fichier mais j'arrive pas à utiliser ton code !!

cdlt

salut Dan

j'ai essayé ton code en le comparant avec un filtre ça donne pas les memes chiffres

j'ai 3907 lignes, et pour les distances ça m'affiche 1

cordialement

Bonjour,

Une nouvelle proposition à étudier.

Cdlt.

salut jean eric

je te remercie pour ton aide

le problème c'est que mon TDC contient 3900 lignes ( j'ai appliquer un filtre au préalable de localité exemple : que les clients situés qur Paris) , quand j'applique la macro j'ai une valeur nettement inférieure à a normal

cdlt

RE,

Tu ne dis pas tout.

Regarde cette nouvelle proposition.

Cdlt.

Merci jean

quand je colle le code rien ne se passe

Bonjour,

Faut-il encore placer les procédures dans le module de la feuille qui comporte le TCD, soit le module Feuil9 (TCD) dans mon exemple

Ce sont 2 procédures évènementielles, qui se produisent automatiquement à l'activation de la feuille, puis à chaque actualisation du TCD (filtre par ville par exemple.)

Cdlt.

Merci beaucoup jean

le problème c'est dans le titre des étiquettes faut il qu'il soit semblables partout

dans le TDC j'ai somme des quantités au lieu de quantité comme l'indique le code vba

quand j'essaye de le changer il me dit que le nom de champs existe déja

merci

Bonjour,

Les titres d'étiquettes comme tu l'écris sont différents du nom des colonnes du tableau source.

Pour "quantités" dans le tableau source, tu as "quantités " (espace en fin de mot) dans le TCD et c'est visible dans le code VBA (PivotSelect).

Un champ Valeurs du TCD ne peut avoir le même nom qu'un champ de ligne ou de colonne.

Est-ce plus clair ?

Cdlt.

Salut Jean

Je te remercie infiniment pour ta précieuse aide et surtout ta patience.

je te joins le fichier sur lequel je suis en train de bosser regarde par toi meme si tu peux

merci d'avance

cordialement

Re

C'est plus le même fichier là

Cordialement

Bonjour,

Il va falloir faire un effort pour comprendre les réponses que l'on te donne.

Et éviter de changer de fichier. Cela ne peut apporter que des incompréhensions...

Voir le fichier modifié, mais je ne pense pas que cela t'aide beaucoup.

Cdlt.