Format monétaire

Sub EnleveLesPoints_New()

‘Cette macro enlève les points entre les chiffres
‘Ex: 1.500.000  devient 1 500 000
‘macro écrite par calvin, le 29 avril 2007
‘ce code est à coller dans un module standard (Insertion/module)
On Error Resume Next

Dim Cell As Variant
 
    For Each Cell In Selection    ‘debut de la boucle
       
        Cell.Value = Replace(Cell.Value, “.”, “”)  ‘fonction pour enlever les points entre les chiffres
           
    Next Cell  ‘Fin de la boucle
   
‘Mise en forme sous un format monétaire
    Selection.Style = “Comma”
    Selection.NumberFormat = _
        “_-* #,##0.0 _€_-;-* #,##0.0 _€_-;_-* “”-”"?? _€_-;_-@_-”
    Selection.NumberFormat = “_-* #,##0 _€_-;-* #,##0 _€_-;_-* “”-”"?? _€_-;_-@_-”
   
   
End Sub