Macro VBA de mise en forme d'un tableau croisé dynamique

Bonjour,

Après de nombreuses recherches infructueuses, je viens à vous pour vous soumettre mon problème.

J'ai un tableau composé de boîtes qui contiennent des objets. Ces boîtes peuvent être regroupées en thèmes. Un thème peut contenir plusieurs boîtes et une boîte peut appartenir à plusieurs thèmes. De même un même objet (type d'objet, comme une table) peut être dans des boîtes différentes.
De ce tableau j'ai généré un TCD qui me donne pour chaque objet dans quelles boîtes il apparaît et combien de fois. J'ai donc un count des thèmes avec en colonne les boîtes et en ligne les objets.
Jusque là tout va bien.
Mais le but du TCD est de détecter les adhérences entre les boîtes. Et donc j'aimerais les mettre en avant en mettant en rouge la cellule du count total, colonne finale du TCD. Pour ça j'ai besoin d'une macro, car mon nombre d'objets, de thèmes et de boîtes sera amené à bouger au fil du temps.
J'ai un algo, mais je n'arrive pas à trouver les évènements pour le traduire en VBA. -_-

Mon algo est le suivant :
Pour chaque ligne du TCD
Si le total de la ligne est supérieur à 1 et s'il y a plus d'une cellule non vide dans la ligne alors
mettre en rouge le total
Fin si
Fin pour

Pourriez-vous m'aider à traduire cet algorithme en VBA et dans le cadre d'un TCD s'il vous plaît ?

Jade.

Bonjour,
As-tu déjà utilisé l'enregistreur de macros en appliquant la mise en forme conditionnel au tableau croisé dynamique ?

Bonjour

Pour compléter sais-tu que tu peux détecter la position des totaux d'un TCD : cela fait partie des propriétés de l'objet PivotTable.

Attention la MFC des TCD doit être faites par référence aux champs dudit TCD.

Sans vois le fichier ou une image du TCD avec la référence des colonnes difficile de te donner les paramètres de la formules de MFC

Merci pour vos premiers retours.

Effectivement je n'avais pas pensé à l'enregistreur de macro. Mais lors d'une mise en forme conditionnelle peut-on vraiment lui définir la restriction "s'il y a plus d'une cellule non vide dans la ligne" ? Je viens de tester et le résultat n'est pas très concluant.

En fait ce qu'il me manque c'est les connaissances sur les évènements des TCD et donc de l'objet PivotTable. Mais aussi des types d'objets.

Voici une ébauche que j'ai bidouillée avec un algo légèrement différent et qui est fausse puisqu'elle ne fonctionne pas, si ça peut vous aider. Qu'importe le nom des lignes et colonnes dans le TCD, je saurai faire le parallèle.

Code:

---

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 31 32 33 34 35 36 37

Sub miseenforme()   Dim tcd As PivotTable Dim line As PivotField Dim cell As PivotField Dim celltotal As PivotField Dim i As Integer   Set tcd = ActiveSheet.PivotTables("PT1") Set line = tcd.PivotFields("Objet") Set cell = tcd.PivotFields("Count de Theme") Set celltotal = .Cells(.RowAxis.RowMember.TotalMember, .ColumnAxis.ColumnMember). _ Aggregates("Count de Theme").Value i = 0   'pour chaque ligne de valeur For Each line In tcd.RowFields 'pour chaque cellule For Each cell In line 'si elle n'est pas vide If cell.Range.Value Is Not Null Then 'alors compter 1 i = i + 1 'fin si End If 'fin pour Next 'si le compte est suppérieur à 1 If i > 1 Then 'alors mettre la cellule total en rouge celltotal.DataField.DataRange.Interior.Color = red 'fin si End If 'fin pour Next   End Sub

---

Concernant la détection des totaux, je l'ignorais. Justement je n'ai pas les propriétés en tête car je découvre l'objet TCD. Et VBA a une auto complétion... Pas terrible à mon goût. Elle ne présente pas toutes les possibilités d'un objet avec leur descriptif. Mais j'ai peut être loupé une option pour en afficher plus. Je continue de chercher.

BOnjour

Citation:

---

Envoyé par JadeDB

...Mais lors d'une mise en forme conditionnelle peut-on vraiment lui définir la restriction "s'il y a plus d'une cellule non vide dans la ligne" ...

---

Oui mais comme déjà dit sans voir le TCD, je ne peux te donner de formule car il faut raisonner par rapport à la colonne total d'une part et au nombre d'autres colonnes d'autre part... et la structure du TCD peut aussi compliquer ou faciliter...

Voici en capture le tableau source et le TCD.
Ce que je souhaite faire c'est de mettre en rouge la cellule total à "3" puisqu'elle correspond à un objet présent dans plusieurs boîtes. Les totaux à "2" par exemple ne correspondent pas à mon filtre et ne seront pas mis en rouge.

A noter que le nombre de colonnes et de lignes n'est pas fixe.

J'ai continué à chercher en terme de code et voici mon dernier essai, toujours aussi peu concluant...

Code:

---

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

Sub adherences()   ThisWorkbook.Sheets("Feuil4").Select pvtTCD = ActiveSheet.PivotTables("TCDtest") i = 0 c = pvtTCD.ColumnFields.Count   'pour chaque ligne du tcd For r = 1 To pvtTCD.RowFields.Count 'si le total est supérieur à 1 If pvtTCD.ColumnFields(c).PivotItems(r).Value > 1 Then 'pour chaque cellule de la ligne For n = 1 To (c - 1) 'si la cellule n'est pas vide If pvtTCD.ColumnFields(n).PivotItems(r).Value Is Not Null Then 'alors augmenté d'un le compteur i = i + 1 End If Next 'si la ligne contient plus d'une colonne non vide If i > 1 Then 'alors mettre en rouge le total pvtTCD.ColumnFields("Total général").NumberFormat = [red] End If End If Next   End Sub

---

Bonjour

Peux tu préciser l'adresse de la cellule du TCD "Nombre de Thèmes"

Bonjour,

Le TCD commence en A1.

Re

Sélectionner la 1ère valeur en B3 : MFC et
Pièce jointe 223206

Re,

Merci pour ton retour.

C'est une piste intéressante, hélas si je rajoute un troisième crayon dans la boîte D, ça ne fonctionne plus :/
Mon tableau n'est pas figé dans le temps, que se soit en nombre de ligne, nombre de colonne et contenu.

De plus j'ai testé et la mise en forme ne se fait pas sur le TCD, j'ignore pourquoi. D'autres mises en formes automatiques se font très bien...
J'ai testé également avec une autre piste du style : =SI(ET(D3<>1;MAX(B3:C3)<>D3);VRAI;FAUX)
Mais pas plus de résultat...

En pièce jointe le fichier Excel.

Merci pour ton aide, je sèche complètement -_-

Bonjour

Si tu avais recopié ma formule cela marcherait et ce quel que soit le nombre de colonnes et de lignes.

Les $ sont à respecter à la lettre : ce n'est pas $B$2 mais B$2....
Pièce jointe 223329

Si tu ajoutes des boîtes effectivement le 3 n'est plus bon : tu peux remplacer par

Code:

---

NB.SI($2:$2;"Boîte*")

---

Re,

Effectivement, j'avais loupé un $. Faut croire que les horaires à rallonge ne m'ont pas réussis...

J'ai trouvé une piste intéressante de mise en forme :

Code:

---

=ET(ESTNUM(CHERCHE("Total";B$2));(NBVAL(DECALER($A3;;;1;NBVAL(3:3))))>1)

---

Ce n'est pas encore tout à fait ça mais ça me semble prometteur.



Après quelques derniers tests j'ai trouvé un formule qui semble bien fonctionner lorsque je rajoute/enlève et boîtes ou des objets :

Code:

---

=ET(ESTNUM(CHERCHE("Total";B$2));(NBVAL(DECALER($B3;0;0;1;NBVAL(3:3)))-(1+NB.SI(3:3;0)))>1)

---

J'ai demandé à mon TCD d'afficher des 0 sur les cellules vides, puis j'ai calculé le nombre de cellules différentes de 0 en comptant celles non nulles, moins celles contenant un 0 et moins celle du total.

Quoi qu'il en soit merci pour votre aide. De discuter du problème m'a sorti la tête du guidon ^^