remplacement point par virgule avec VBA Fermé

Question

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

Moi · Accepted Answer

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

boggg · Answer

personne ?? :( :(

le père · Answer

Bonjour

J'ai fait pas mal d'essais. Malheureusement, je ne peux que constater la bizarrerie, pour ne pas dire le bug.
:( aussi

Utilisateur anonyme · Answer

Bonjour,

suggestion :


Sub pv3()

    Cells.Select
    Selection.NumberFormat = "0.00000E+000"
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
                                  SearchOrder:=xlByRows, MatchCase:=False
    Cells(1, 1).Select

End Sub
'

Lupin

boggg · Answer

Bonjour, 
merci pour ta suggestion, 
je l'ai essayée mais la macro fait la même chose (ajoute les 6 zéros) même si on change 
d'avantage le format numérique des cellules. 
Je l'avais déjà essayé, pas avec un format personnalisé mais avec le format Standard, mais tjrs la même chose. 

Mais encore une fois merci pour ta proposition. 

boggg

Stéphane · Answer

Salut,

merci cela un bon moment que j' m'arrache les cheveux avec cette fonction, et les différents forum!
Encore merci d'avoir fait le nouveau post!

Remplacement point par virgule avec VBA

6 réponses

Discussions similaires