Remplacer points

bonjour,

je cherche une macro pour remplacer des points en virgule.

La macro que j'ai enregistré donne ca :

Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

Le problème est que le format de mes cellules sont 7.444 ou 7.44

Dans le cas 7.444, la macro donne un chiffre à 4 unités. = 7 444

Alors que je souhaite un nombre à 3 décimal 7,444

Je vous joins un document.

Merci pour votre aide.

Bonjour

J'ai ouvert ton fichier et n'y vois aucun point à remplacer?

Cordialement

sur ce fichier là, il y a le problème.

Il y a le message de vérification qui s'affiche.

je voudrais une petite macro qui change le format texte en format nombre

Bonjour

Essaie cette bizarrerie

Sub Point_Virgule()

Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False

End Sub

Cordialement

Bonjour,

A tester.

Cdlt.

Public Sub DEMO()
    Columns("A:A").TextToColumns DecimalSeparator:="."
End Sub