Format nombre personnalisé
Bonjour,
Je souhaiterais afficher les nombres dans un de mes tableaux de façon à ce que :
- les nombres négatifs s'affichent entre parenthèses
ET
- le séparateur de milliers soit un point.
J'arrive à faire l'un ou l'autre avec les formats de nombre personnalisé ou quelque chose s'en approchant (#.##0;(#.##0) > mais les chiffres < 1000 s'affiche aussi avec un .devant ex dans le fichier joint), mais pas les deux en même temps...
Auriez vous une idée ?
Voila une macro qui résout le problème (cf fichier joint)
Sub format()
Range(Cells(1, 1), Cells(30, 1)).Select
For Each cell In Selection
If cell.Value < 1000 And cell.Value > 0 Then
cell.NumberFormat = "000"
ElseIf cell.Value < 0 Then
If cell.Value > -1000 Then
cell.NumberFormat = "###0;(###0)"
Else
cell.NumberFormat = "#\.##0;(#\.##0)"
End If
End If
Next
End Sub
Amitiés
Dovidus
super, merci.
C'est donc bien ce que j'avais cru comprendre en fouinant sur internet : ce n'est possible qu'avec une macro ??
Bonjour
Recopier le code ci-dessous dans un module VBA
Fichier à enregistrer auparavant en "xlsm
Option Explicit
Public Sub Format_Cellules()
Dim Cellule As Range
Dim Plage As Range
With ActiveSheet
Set Plage = Range("A1").CurrentRegion
End With
For Each Cellule In Plage
Cellule.NumberFormat = "0;0"
Select Case Cellule
Case Is > 1000
Cellule.NumberFormat = "#\.##0;(#\.##0)"
Case Is > -1000
Cellule.NumberFormat = "0;(0)"
Case Else
Cellule.NumberFormat = "#\.##0;(#\.##0)"
End Select
Next
End Sub
Mes excuses,
Je n'avais pas vu la réponse précédente.
Il y a doublon
Jean-Eric
Merci à tous les deux.
Cela semble fonctionner via une marco.