.numberformat "# ##0" devient "#\ ##0" ?

Version imprimable

13/07/2016, 08h28
Denis_67

.numberformat "# ##0" devient "#\ ##0" ?
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:

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
13/07/2016, 08h44
casefayere

Bonjour,
essayes ça

Code:

.NumberFormat = "#,##0"
13/07/2016, 08h50
Denis_67

Nickel merci Dom.

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

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

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:

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:

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

13/07/2016, 09h08
casefayere
tant qu'on y est, tu crois que cette ligne est utile
Code:

1 2 3 ... ActiveCell.Select ...
essayes en l'enlevant
13/07/2016, 11h15
Marc-L

Bonjour !

Code:

.NumberFormatLocal = "# ##0"

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
13/07/2016, 12h16
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