Champ d'un TCD : mise en forme

[pam-pg]

Comment mettre en forme un champs de TCD. Concrètement il s'agirait de mettre en rouge la somme si elle est supérieure de 100 à la somme d'un autre champs masqué celui-la.

Nom............M1...........M2............Année
Paul............100..........20.............2006
Paul............200..........10.............2006
Marcel.........100..........50.............2007

Résultat (M1 est affiché et M2 est masqué)
....................2006........2007
Paul...............300
Marcel...........................100

[SilkyRoad]

bonjour

j'espère que ce lien pourra t'aider

http://silkyroad.developpez.com/Exce...onditionnelle/


michel

[pam-pg]

Dans le TCD j'ai deux champs sommés : Somme de budget et Somme de Variation.
Je veux mettre en couleur suivant la valeur de "Somme de Variation"

J'ai écris ce bout de code qui fera peut-être rire les pro.
Est-ce que quelqu'un peut m'aider à le faire fonctionner.
Merci d'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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub si50()
    Dim Pvt As PivotTable
    Dim largeur As Integer
    Dim hauteur As Integer
    Dim macellule1 As Range
    Dim macellule2 As Range
    Dim k As Integer
    Dim j As Integer
    Dim i As Integer
 
    Set Pvt = Worksheets("Feuil1").PivotTables("Tableau croisé dynamique1")
 
    largeur = Pvt.TableRange1.Columns.Count
    hauteur = Pvt.TableRange2.Rows.Count
 
    For i = 1 To largeur
 
        For j = 1 To hauteur
        Set macellule1 = Range("L" & j & "C" & i).Cells
        MsgBox macellule1.Value
           If macellule1.Value = "Somme de Variation" Then
 
                For k = i To largeur
                    Set macellule2 = Range("L" & i & "C" & k).Cells
 
                    If macellule2.Value > 50 Then
                    macellule2.Interior.Color = RGB(255, 255, 0)
                    End If
 
                    If macellule2.Value < -50 Then
                    macellule2.Interior.Color = RGB(0, 0, 255)
                    End If
                Next k
 
            End If
 
        Next j
 
    Next i
 
  End Sub