1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub formatNumber()
' routine permettant de supprimer les virgules et les remplacer par des points sur toutes les feuilles
' et toutes les cellules
Dim feuille As Variant
Dim zone As Range
Dim texte As String
For Each feuille In Sheets
If feuille.Name <> "SOMMAIRE" Then
For Each zone In feuille.Range("A1:BE1000")
texte = zone.Text
If texte <> Empty And texte <> "" Then
If IsNumeric(texte) Then
If InStr(texte, ",") > 0 Then
Replace texte, ",", "."
zone.Text = CDbl(texte) 'plante si la Cellule contient une Formule
End If
End If
End If
Next zone
End If
Next feuille
End Sub |
Partager