B
Bertrand
Guest
Hello,
J'ai créé automatiquement un tableau croisé dynamique via le code VBA suivant
Je souhaiterais faire disparaître chaque valeur ''grand total '
qui représente la somme de chaque ligne et qui apparait
dans la dernière colonne de mon tableau
Par contre, je voudrais garder la dernière ligne qui correspond
la somme de chaque colonne
Que dois-je modifier dans mon code?
Merci d'avance,
Bertrand
J'ai créé automatiquement un tableau croisé dynamique via le code VBA suivant
Code:
Public Sub REPEATABILITY()
Dim myPivot As PivotTable
Dim myField As PivotField
On Error Resume Next
Application.DisplayAlerts = False
Sheets('TP_REPEATABILITY').Delete
Application.DisplayAlerts = True
Range('A1').Select
On Error Goto 0
Set myPivot = Sheets('REPEATABILITY').PivotTableWizard
Set myField = myPivot.PivotFields('RESULTS')
With myField
.Orientation = xlDataField
.Function = xlAverage
End With
Set myField = myPivot.PivotFields('DAY')
myField.Orientation = xlRowField
Set myField = myPivot.PivotFields('NUMBER OF DILUTIONS')
myField.Orientation = xlColumnField
Application.CommandBars('PivotTable').Visible = False
ActiveSheet.Name = 'TP_REPEATABILITY'
End Sub
Je souhaiterais faire disparaître chaque valeur ''grand total '
qui représente la somme de chaque ligne et qui apparait
dans la dernière colonne de mon tableau
Par contre, je voudrais garder la dernière ligne qui correspond
la somme de chaque colonne
Que dois-je modifier dans mon code?
Merci d'avance,
Bertrand