Remplacement point par virgule avec VBA
Bonjour,
Pour ceux qui connaissent vba excel,
j'ai fait une macro très simple qui sélectionne feuille et qui remplace les points par des virgules,
quand on le fait "à la main" (Edition/Remplacer, etc) cela marche très bien.
Par contre avec la macro, qui décrit en effet l'action décrite ci-avant, ne marche pas.
Par exemple pour les numéro du type : 1.27365e+006
la macro les transforme en : 127365000000
voila la macro, elle est très simple :
Sub pv3()
Cells.Select
Application.CutCopyMode = False
Selection.NumberFormat = "General"
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
Je vous remercie d'avance pour votre réponse
Pour ceux qui connaissent vba excel,
j'ai fait une macro très simple qui sélectionne feuille et qui remplace les points par des virgules,
quand on le fait "à la main" (Edition/Remplacer, etc) cela marche très bien.
Par contre avec la macro, qui décrit en effet l'action décrite ci-avant, ne marche pas.
Par exemple pour les numéro du type : 1.27365e+006
la macro les transforme en : 127365000000
voila la macro, elle est très simple :
Sub pv3()
Cells.Select
Application.CutCopyMode = False
Selection.NumberFormat = "General"
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
Je vous remercie d'avance pour votre réponse
Configuration: Windows XP Internet Explorer 6.0
