Discussion :

[Denis_67]

Bonjour,

J'ai réalisé une petite macro perso, qui me permet en un clic mettre la mise en forme que j'utilise le plus souvent sur mes champs des TCD
Petit problème il n'applique pas le bon format mais créé un format personnalisé.

J4ai testé sur une cellule normale (hors TCD) et j'ai le même souci.
La macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Macro1()
    With Range("d8")
        .NumberFormat = "# ##0"
    End With
End Sub

Mais par la suite le format constaté est #\ ##0 le nombre s'affiche 6516 905 au lieu de 6 516 905.

auriez vous une idée du problème

Merci
Denis

[casefayere]

Bonjour,
essayes ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.NumberFormat = "#,##0"

[Denis_67]

Nickel merci Dom.

[casefayere]

pas de quoi, l'enregistreur t'aurai donné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Selection.NumberFormat = "#,##0"
End Sub

[Denis_67]

en effet.

mais j'ai fait cette petite macro au départ pour changer le format des champs des TCD

et curieusement dans ce contexte, l'enregistreur ne met pas la virgule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    Range("H3").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Somme de b")
        .NumberFormat = "# ##0"
    End With

Pour info mon code complet que j'ai mis dans mes macros perso, et bien pratique pour mettre au propre les différents champs des tcd en un clic par champ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Format_champ_TCD()
'
' Cette macro identifie le nom du champ de la cellule active et applique la mise en forme nombre
' avec séparateur de milier et 0 décimales
'
Dim TCD As String
Dim Champ_TCD As String
 
On Error GoTo 0
 
ActiveCell.Select
TCD = ActiveCell.PivotCell.Parent 'nom du TCD
Champ_TCD = ActiveCell.PivotCell.DataField ' nom du champ
 
    With ActiveSheet.PivotTables(TCD).PivotFields(Champ_TCD)
    .NumberFormat = "#,##0"
    End With
End Sub

[casefayere]

tant qu'on y est, tu crois que cette ligne est utile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
ActiveCell.Select
...

essayes en l'enlevant

[Marc-L]

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.NumberFormatLocal = "# ##0"

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[Denis_67]

Dom, bien sûr le select ne sert à rien, c'était un reste de quand j'essayais de faire marcher le bazar.

MarL : dans mon context (champ d'un TCD .NumberFormatLocal me renvoie une erreur 38

Denis