OVH Cloud OVH Cloud

For each pour numberformat?

3 réponses
Avatar
René Delcourt
Bonjour à toutes et à tous,
Je ne suis pas content du code suivant concernant le formatage des valeurs
d'un TCD. Je sais qu'avec "for each", ce serait plus esthétique mais ne
parvient pas à l'appliquer à des champs de type valeurs de TCD.
Une inspiration?

ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet.PivotTables("TCD"). _
PivotFields("Sinistres LAMal"), "Sin. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Sin.
LAMal").NumberFormat = "#'##0"
ActiveSheet.PivotTables("TCD").AddDataField
ActiveSheet.PivotTables("TCD"). _
PivotFields("Participations LAMal"), "Part. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Sin.
LAMal").NumberFormat = "#'##0"
ActiveSheet.PivotTables("TCD").AddDataField
ActiveSheet.PivotTables("TCD"). _
PivotFields("Nbres factures LAMal"), "Fact. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Fact.
LAMal").NumberFormat = "#'##0"
--
René Delcourt

3 réponses

Avatar
isabelle
bonjour René,

With ActiveSheet.PivotTables("TCD")
For Each d In .DataFields
d = pf.Name
d.NumberFormat = "#'##0"
Next
End With

isabelle


Bonjour à toutes et à tous,
Je ne suis pas content du code suivant concernant le formatage des valeurs
d'un TCD. Je sais qu'avec "for each", ce serait plus esthétique mais ne
parvient pas à l'appliquer à des champs de type valeurs de TCD.
Une inspiration?

ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet.PivotTables("TCD"). _
PivotFields("Sinistres LAMal"), "Sin. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Sin.
LAMal").NumberFormat = "#'##0"
ActiveSheet.PivotTables("TCD").AddDataField
ActiveSheet.PivotTables("TCD"). _
PivotFields("Participations LAMal"), "Part. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Sin.
LAMal").NumberFormat = "#'##0"
ActiveSheet.PivotTables("TCD").AddDataField
ActiveSheet.PivotTables("TCD"). _
PivotFields("Nbres factures LAMal"), "Fact. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Fact.
LAMal").NumberFormat = "#'##0"


Avatar
René Delcourt
Merci Isabelle mais comment dois-je déclarer la variable "d"?
--
René Delcourt



bonjour René,

With ActiveSheet.PivotTables("TCD")
For Each d In .DataFields
d = pf.Name
d.NumberFormat = "#'##0"
Next
End With

isabelle


Bonjour à toutes et à tous,
Je ne suis pas content du code suivant concernant le formatage des valeurs
d'un TCD. Je sais qu'avec "for each", ce serait plus esthétique mais ne
parvient pas à l'appliquer à des champs de type valeurs de TCD.
Une inspiration?

ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet.PivotTables("TCD"). _
PivotFields("Sinistres LAMal"), "Sin. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Sin.
LAMal").NumberFormat = "#'##0"
ActiveSheet.PivotTables("TCD").AddDataField
ActiveSheet.PivotTables("TCD"). _
PivotFields("Participations LAMal"), "Part. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Sin.
LAMal").NumberFormat = "#'##0"
ActiveSheet.PivotTables("TCD").AddDataField
ActiveSheet.PivotTables("TCD"). _
PivotFields("Nbres factures LAMal"), "Fact. LAMal", xlSum
ActiveSheet.PivotTables("TCD").PivotFields("Fact.
LAMal").NumberFormat = "#'##0"





Avatar
isabelle
Dim d As Object

isabelle


Merci Isabelle mais comment dois-je déclarer la variable "d"?