Remplacer un caractère par un autre

Bonjour,

Je me suis inspiré de codes trouvés sur le net pour remplacer mes "." par des "," dans mes cellules mais le code bugge encore! :calim2:

Le voici:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub RemplacePointParVirgule()   'Variables Dim i As Integer Dim N As Integer   'Selection de la plage de données N = WorksheetFunction.CountA(Columns("f:f"))   For i = 1 To N Cells(i, 6).Text = Replace(Cells(i, 6).Text, ".", ",") Next   End Sub

---

Quelqu'un pourrait m'aider svp?

Merci d'avance! :ccool:

Coucou,

Me revoila avec une amélioration:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub RemplacePointParVirgule()   'Variables Dim i As Integer     'Boucle sur la plage de données pour remplacer les "." par des "," For i = 1 To 40 Cells(i, 6).Value = Replace(Cells(i, 7).Value, ".", ",", , 1) Next   End Sub

---

Par contre avec ce code, toutes mes cellules se vident. Donc elles ne rélaisent pas l'objectif initial qui est de remplacer les "." par des "," afin de pouvoir faire un graphe!

Merci de votre aide! :ccool:

bonjour,

As tu essayé de remplacer le symbole décimal en mettant un point

Code:

---

Application.DecimalSeparator = "."

---

A remettre en virgule avant de sortir de l'application

Merci jfontaine! :ccool: C'était une bonne idée mais cela ne me convient pas car j'ai d'autres données qui sont avec la ","! :D

Une autre idée? Ou quelqu'un voit l'erreur dans mon code? :mrgreen:

Bonjour à tou(te)s,
et comme ça ?:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub RemplacePointParVirgule()   'Variables Dim i As Integer, plage As Range, cel As Range i = Range("F" & Rows.Count).End(xlUp).Row Set plage = Range("F1:f" & i)   'Boucle sur la plage de données pour remplacer les "." par des "," For Each cel In plage If cel <> "" Then cel = Replace(cel, ".", ",") Next   End Sub

---

à adapter

Code:

---

Worksheets("Feuil1").Range("F:F").Replace ".", ",", xlPart

---

Edit

Si le séparateur décimal est une virgule

Code:

---

Worksheets("Feuil1").Range("F:F").Replace ".", ".", xlPart

---

Merci tout le monde!

Vous êtes au top tout comme ce site internet! :ccool:

Bonjour,

Je vous prie de m'excuser car hier soir j'ai mis cette discussion en résolu mais ce matin, je me rends compte que j'ai la même erreur avec le code de casefayere:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub RemplacePointParVirgule()   'Variables Dim i As Integer, plage As Range, cel As Range i = Range("F" & Rows.Count).End(xlUp).Row Set plage = Range("F1:f" & i)   'Boucle sur la plage de données pour remplacer les "." par des "," For Each cel In plage If cel <> "" Then cel = Replace(cel, ".", ",") Next   End Sub

---

Dans ma colonne F en question, j'ai des chiffres inférieur à 1 pour lesquels la macro fonctionne très bien mais j'ai des chiffres supérieur à 1 pour lesquels la macro m'écrit des millions.

Par exemple, 0.453 devient 0,453 donc c'est très bien!
Mais, 1.221 devient 122 100 000! :aie:

Je comprends pas pourquoi! :calim2:

Quelqu'un a une idée?

Merci d'avance! :ccool:

je viens d'essayer sans soucis,

as-tu essayé le code de mercatog ? quel est le résultat ?

Partant du fait que le séparateur décimal est la virgule. et en colonne F j'ai des "nombres" avec le point comme séparateur décimal (Donc ils sont reconnu comme du texte)

Exemple: en colonne F j'ai le texte suivant 123.54 33.00 0.25

Après exécution du code suivant

Code:

---

Worksheets("Feuil1").Range("F:F").Replace ".", ".", xlPart

---

le résultat 123,54 33 0,25 qui sont reconnus comme étant des nombres.


Sinon, pour corriger la procédure utilisant une boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub RemplacePointParVirgule() Dim i As Integer, Plage As Range, Cel As Range   Application.ScreenUpdating = False With Worksheets("Feuil1") i = .Range("F" & .Rows.Count).End(xlUp).Row Set Plage = .Range("F1:F" & i) For Each Cel In Plage If Cel <> "" Then Cel = Replace(Cel, ".", ".") Next Set Plage = Nothing End With End Sub

---

Explication:
Le séparateur décimal d'excel (supposons) est la virgule
Le séparateur décimal de vba est toujours le point

Code:

---

Cel = Replace(Cel, ".", ".")

---

En remplace le point par le séparateur décimal

Merci à tous! Ca marche avec le code de mercatog! :zoubi: