1 2 3 4 5 6 7 8 9 10 11
| If Me.PivotTable.activeview.columnaxis.Fieldsets("Classe").Fields("Classe").Value = "1" Then
Me.PivotTable.activeview.columnaxis.Fieldsets("Classe").Fields("Classe").DetailBackcolor = RGB(116, 16, 200)
ElseIf Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").Value = "2" Then
Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").DetailBackcolor = RGB(67, 255, 71)
ElseIf Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").Value = "3" Then
Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").DetailBackcolor = RGB(255, 234, 0)
ElseIf Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").Value = "4" Then
Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").DetailBackcolor = RGB(248, 178, 79)
ElseIf Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").Value = "5" Then
Me.PivotTable.activeview.rowaxis.Fieldsets("Classe").Fields("Classe").DetailBackcolor = RGB(255, 0, 0)
End If |
Partager