Pb NumberFormat dans une macro

Bonjour,

je m'adresse à vous car je ne parviens pas à résoudre un problème de format dans une macro.

Tout se passe bien lors de la création mais dès que je la répète la macro ne respecte pas le format de nom demandé initialemen et retient un format personnalisé.

Voici le code

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _

"Nombre de RAF")

.Caption = "Jours RAF"

.Function = xlSum

.NumberFormat = "0,00"

End With

Range("G3").Select

ActiveSheet.PivotTables("Tableau croisé dynamique1").CalculatedFields.Add _

"Avancement", "='Quantité" & Chr(10) & "Totale" & Chr(10) & "Passée ' /'Quantité" & Chr(10) & "Prévue'", True

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Avancement"). _

Orientation = xlDataField

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _

"Somme de Avancement")

.Caption = "% Avancement"

.NumberFormat = "0%"

Pour le format de nombre au lieu d'obtenir 12,00 je retrouve 012 dans la cellule et pour le pourcentage au lieu de 10,00 % j'obtiens 10% et j'ai besoin de connaître les chiffres après la virgule.

Merci de votre aide

bonsoir,

à tester

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de RAF")
.Caption = "Jours RAF"
.Function = xlSum
.NumberFormat = "0.00"
End With
Range("G3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").CalculatedFields.Add _
"Avancement", "='Quantité" & Chr(10) & "Totale" & Chr(10) & "Passée ' /'Quantité" & Chr(10) & "Prévue'", True
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Avancement"). _
Orientation = xlDataField
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Somme de Avancement")
.Caption = "% Avancement"
.NumberFormat = "0.00%"

Bonsoir,

Merci pour ce retour, cela m'a effectivement aidé.

Un petit détail qui bloque tout lorsque qu'on n'est pas à même de comprendre la construction des macros.

bien cordialement