E
eymeric
Guest
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
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