Remplacement virgule par point

Re bonjour,

mon absence ne fut pas très longue..

Je souhaite remplacer toutes les virgules par des points dans les colonnes I et L de mon tableau.

Pour faire simple, j'ai utilisé l'enregistreur mais quand je lance la macro ça ne fonctionne pas (rien ne se passe).

Alors que si j'utilise "Rechercher/Remplacer", tout fonctionne.

Voici le code:

Sub i_Remplacement()
'
' i_Remplacement Macro
'
    Columns("I:I").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("L:L").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("L7").Select
End Sub

C'est une macro que j'ai déjà faite et qui fonctionne, mais là...

A vous lire.

RE

J'ai testé chez moi, cela marche parfaitement sur les colonnes I et L

Si tu n'y arrives pas , mets le fichier concerné, nous verrons

A+

Bonjour,

Ceci fonctionne correctement :

Sub i_Remplacement()
' i_Remplacement Macro
'
    Columns("I:L").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("L7").Select
End Sub

Sauf que si tu appliques cela sur des chiffres et que le séparateur décimal est la virgule ... il ne se passera rien, car, Excel remet le séparateur décimal illico.

laceline

Merci laceline et Patty5046,

j'ai mis les cellules de mes deux colones au format Texte et maintenant tout est ok.

Merci à vous et à bientôt.