Remplacement point par virgule avec VBA
boggg
-
Carlguer -
Carlguer -
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
A voir également:
- Vba remplacer point par virgule
- Remplacer disque dur par ssd - Guide
- Google sheet remplacer point par virgule - Forum Google Docs
- Remplacer la virgule par un point clavier numérique windows 11 - Forum Windows 10
- Remplacer par word - Guide
- Point de suite word - Guide
6 réponses
Le sujet est sûrement clos, mais pour les suivants qui en auront besoin :
Il faut remplacer le point par un point dans la macro. Dans mon cas :
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Il faut remplacer le point par un point dans la macro. Dans mon cas :
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
intéressée
Merci !!!!!!!!! ça fait super longtemps que je cherche, et la réponse n'est pas évidente... Merci encore d'avoir répondu à ce post, ça tombe super bien pour moi.
Boule de gomme
Merci, je n'avais pas encore trouver ...
