macro pour "rechercher/remplacer"

[eymeric]

Bonjour,

je tente de faire une simple macro pour transformer les "," en "." !

ceci fonctionne très bien manuellement mais dès que je l'enregistre en macro, cela ne fonctionne pas !

voici la macro :

Sub remplac_virgules()
'
' remplac_virgules Macro
' Macro enregistrée le 03/02/2005 par Laboratoire
'

'
Columns("M:N").Select
Selection.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
****Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A2").Select
End Sub


C'est sur la ligne ou il y a les *** que se trouve l'erreur d'après le débogueur !?

Merci

 

[CBernardT]

Bonjour Eymeric et le forum


Essayes ce code ?


Sub remplac_virgules()

Columns("M:N").Replace What:=",", Replacement:="."

End Sub


Cordialement

CBernardT

 

[eymeric]

non,
ça ne fonctionne pas !

débogage sur :
Columns("M:N").Replace What:=",", Replacement:="."

 

[CBernardT]

Re

Désolé, comprends pas !

Peut être un problème de format ??


Salut

CBernardT

 

[léa]

Et si tu essayais plutôt ceci

Sub remplac_virgules()
'
' remplac_virgules Macro
' Macro enregistrée le 03/02/2005 par Laboratoire
'
Columns("M:N").Select
Selection.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A2").Select

End sub

Il est normal que tu ais une erreur après les

Léa