R
Ronan
Guest
Salut a tous,
Voici une macro réalisant un graphique :
La variable F est une variable de type string qui récupere un mot dans une case. Je teste et ici la condition est si F = 'nombre' alors je veux que le graphique soit sous la forme xlStDevP
Mais ceci ne marche pas !
Pourquoi ??
Voici une macro réalisant un graphique :
Code:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Feuil1!R1C1:R' & A & 'C4').CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique1'
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables('Tableau croisé dynamique1').SmallGrid = False
ActiveSheet.PivotTables('Tableau croisé dynamique1').AddFields RowFields:= _
W, ColumnFields:=Y, PageFields:=X
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields(Z). _
Orientation = xlDataField
Charts.Add
ActiveChart.SetSourceData Source:=Sheets('Feuil2').Range('A3')
ActiveChart.Location Where:=xlLocationAsNewSheet
Application.CommandBars('PivotTable').Visible = False
If F = 'nombre' Then
ActiveChart.PivotLayout.PivotFields('Moyenne ' & Z).Function = xlStDevP
End If
La variable F est une variable de type string qui récupere un mot dans une case. Je teste et ici la condition est si F = 'nombre' alors je veux que le graphique soit sous la forme xlStDevP
Mais ceci ne marche pas !
Pourquoi ??