Remplacer , par . en vba

[nono555]

Bonjour,

Je souhaite utiliser VBA pour remplacer automatiquement dans certaines colonnes de plusieurs fichier les virgules dans les nombres par des points.
Car je créé la macro automatique, celà me donne le code suivant :
"Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False"
Mais quand je l'utilise dans une macro ensuite, ça ne fonctionne pas.

Comment je peux faire ?

Merci d'avance.

Nono

 

[job75]

Re : Remplacer , par . en vba

Bonjour nono555, salut Jean-Marcel,

Notre ami veut juste une petite solution :

Sub RemplaceVirgule()
Dim r As Range, f As String
Set r = Intersect(Selection, ActiveSheet.UsedRange)
If Not r Is Nothing Then
  For Each r In r
    f = r.NumberFormat
    r.NumberFormat = "@" 'format Texte
    r = Replace(r.Text, ",", ".")
    r.NumberFormat = f 'format d'origine
  Next
End If
End Sub

A+

 

[Pierrot93]

Re : Remplacer , par . en vba

Bonjour à tous

peut être une autre solution avec la conversion de données, barre de Menu Excel => Données => convertir... n'oublie pas de préciser le séparateur décimale des données source...

bonne soirée
@+