Points

bonjour,

la macro ci dessous faite avec l'enregistreur ne fonctionne pas (remplacer virgule par point ).

une idée ?

cordialement

Bonsoir,

Avec une moulinette peut être ?

Sub Remplace()

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Feuil3")

        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))

    End With

    For Each Cel In Plage

        Cel.Value = replace(Cel.Value, ",", ".")

    Next Cel

End Sub

Hervé.

bonjour ,

argument incorrect bug

une autre idée ?

merci

Bonjour,

Il faut changer le format des cellules. Mettre au format "Texte" :

Sub Remplace()

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Feuil3")

        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))

    End With

    For Each Cel In Plage

        Cel.NumberFormat = "@"
        Cel.Value = replace(Cel.Value, ",", ".")

    Next Cel

End Sub

Hervé.

bonjour Theze,

cela ne marche pas, mais je ne comprend pas pourquoi

j'ai la même erreur , si quelqu'un a une idée ou explication ?

cdt

Bonjour,

Là, je ne comprend pas pourquoi ça ne marche pas ?

Je viens de télécharger à nouveau ton classeur et exécuter le second code que je t'ai posté et ça fonctionne très bien chez moi !

Hervé.

pardon theze !!

effectivement cela marche ,je devais être fatigué quand j'ai essayé !!!

merci de ton aide.