[VBA] Transformer les points de plusieurs colonnes en virgules

napo124 · 9 Mars 2012

Bonjour,

Je développe un petit outil qui récupère des données d'un fichier sources en les copiant/collant dans un nouvel onglet d'un nouveau fichier.

Problème, les données d'origines sont de la forme "354.00000" au lieu de 354 ou "45.020000" au lieu de 45,02.
Utiliser la fonction Rechercher et replacer "." par "," fonctionne parfaitement pour corriger ce problème de manière manuelle.

Mais en faisant la même action en vba (enregistreur de macro), le résultat est assez desastreux.

Les chiffres sont transformés en 354 000 000 000 et l'astuce ne fonctionne plus.

Connaissez vous le code correspondant pour remplacer les "." par des "," dans plusieurs colonnes ?

Merci de votre aide !

joss56 · 9 Mars 2012

Re : [VBA] Transformer les points de plusieurs colonnes en virgules

Bonjour

Essaye avec ce code:

Code:

Private Sub CommandButton1_Click()

    lig = 1
        Do While Cells(lig, 1) <> ""
            Cells(lig, 1) = Replace(Cells(lig, 1), ".", ",")
            Cells(lig, 1) = CDbl(Cells(lig, 1))
            lig = lig + 1
        Loop
        
End Sub

Il balaie toutes les cellules de la colonnes A

Jocelyn

job75 · 9 Mars 2012

Re : [VBA] Transformer les points de plusieurs colonnes en virgules

Bonjour,

En VBA, remplacer le point par... le point :

Code:

Sub Point()
Cells.Replace ".", ".", xlPart
End Sub

A+

napo124 · 12 Mars 2012

Re : [VBA] Transformer les points de plusieurs colonnes en virgules

Bonjour à tous !

Merci de vos réponses!

Vos solutions ont fonctionné mais étaient incomplètes

Private Sub CommandButton1_Click()

lig = 1
Do While Cells(lig, 1) <> ""
Cells(lig, 1) = Replace(Cells(lig, 1), ".", ",")
Cells(lig, 1) = CDbl(Cells(lig, 1))
Cells(lig, 1)=Cells(lig, 1)/10000000

lig = lig + 1
Loop

End Sub

J'ai simplement divisé le résultat pour revenir à l'unité voulu...

Merci à vous

tototiti2008 · 12 Mars 2012

Re : [VBA] Transformer les points de plusieurs colonnes en virgules

Bonjour à tous,

J'ai simplement divisé le résultat pour revenir à l'unité voulu...

très mauvaise idée car tout dépend du nombre de décimales affichées, tu risques d'avoir des surprises...

job75 · 12 Mars 2012

Re : [VBA] Transformer les points de plusieurs colonnes en virgules

Bonjour le fil, salut Marc

tototiti2008 à dit:
très mauvaise idée (...)

Oui, et apparemment notre ami n'a pas compris qu'il ne faut pas en VBA remplacer le point par la virgule.

Voir mon post #3...

Edit : bien sûr il ne faut pas que la colonne A soit au format Texte si l'on veut des nombres !!

A+

Pierrot93 · 12 Mars 2012

Re : [VBA] Transformer les points de plusieurs colonnes en virgules

Bonjour à tous

une autre approche serait de passer par la conversion de données lors de l'importation....

bon après midi
@+

[VBA] Transformer les points de plusieurs colonnes en virgules

napo124

XLDnaute Junior

joss56

XLDnaute Accro

job75

XLDnaute Barbatruc

napo124

XLDnaute Junior

tototiti2008

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires