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:
- Formule excel remplacer point par virgule
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Liste déroulante excel - Guide
- Remplacer disque dur par ssd - Guide
- Formule somme excel ligne - 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 ...
