Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel changer le point par une virgule pour une liste de nombres à deux décimales

changer le point par une virgule pour une liste de nombres à deux décimales

2 réponses
Avatar
WTF
changer le point par une virgule pour une liste de nombres=20
=E0 deux d=E9cimales, comment fait-on?
quelqu'un peut m'expliquer?

est-ce que c'est si compliqu=E9 que =E7a?
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour WTF,

Voici une façon de faire :

Tu sélectionnes ta plage de données et tu appliques cette procédure :

Change le Format 125,125.36 en 125 125,36

'--------------------------
Sub RemplacerVirguleFormatNombre()

Dim Tblo As Variant, Rg As Range, Are As Range

Set Rg = Selection

For Each Are In Rg.Areas
Tblo = Are
For a = 1 To UBound(Tblo, 1)
For b = 1 To UBound(Tblo, 2)
'Remplace la virgule par ""
Tblo(a, b) = Replace(Tblo(a, b), ",", "")
'Remplace le point par ","
Tblo(a, b) = Replace(Tblo(a, b), ".", ",")
Next
Next
Are.NumberFormat = "# ##0.00"
Are = Tblo
Next

Set Rg = Nothing: Set Are = Nothing

End Sub
'--------------------------


Salutations!


"WTF" a écrit dans le message de news:1034d01c3f445$43d6feb0$
changer le point par une virgule pour une liste de nombres
à deux décimales, comment fait-on?
quelqu'un peut m'expliquer?

est-ce que c'est si compliqué que ça?
Avatar
WTF
Merci beaucoup!! excellent!

-----Message d'origine-----
Bonjour WTF,

Voici une façon de faire :

Tu sélectionnes ta plage de données et tu appliques
cette procédure :


Change le Format 125,125.36 en 125 125,36

'--------------------------
Sub RemplacerVirguleFormatNombre()

Dim Tblo As Variant, Rg As Range, Are As Range

Set Rg = Selection

For Each Are In Rg.Areas
Tblo = Are
For a = 1 To UBound(Tblo, 1)
For b = 1 To UBound(Tblo, 2)
'Remplace la virgule par ""
Tblo(a, b) = Replace(Tblo(a, b), ",", "")
'Remplace le point par ","
Tblo(a, b) = Replace(Tblo(a, b), ".", ",")
Next
Next
Are.NumberFormat = "# ##0.00"
Are = Tblo
Next

Set Rg = Nothing: Set Are = Nothing

End Sub
'--------------------------


Salutations!


"WTF" a écrit dans
le message de news:1034d01c3f445$43d6feb0

$
changer le point par une virgule pour une liste de nombres
à deux décimales, comment fait-on?
quelqu'un peut m'expliquer?

est-ce que c'est si compliqué que ça?


.