Remplacer point par virgule

[jip31]

Bonjour

J'utilise le code ci-dessous pour remplacer les points par des virgules dans la zone B4:AF6 mais rien ne se produit!
Quelqu'un peut t'il m'aider SVP?

Private Sub Workbook_Open()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
End Sub

Cdlt

 

[JBARBE]

Re : Remplacer point par virgule

Bonjour,

comme ceci peut-être !

Range("B4:F6" ).Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

 

[jip31]

Re : Remplacer point par virgule

merci pour ton aide je vais essayer mais en fait comme j'ai plusieurs zones dans la feuille avec ce problème j'aurais aimé que cela se fasse via thisworkbook

 

[JBARBE]

Re : Remplacer point par virgule

Le problème est que si dans la zone considérée il n'y a pas de point, la macro risque de planter !

 

[jip31]

Re : Remplacer point par virgule

en fait il y aura toujours un point à la place de la virgule

 

[JBARBE]

Re : Remplacer point par virgule

Aprés essai, il s’avère que la macro fonctionne correctement sur les zones de chiffres !

 

[JBARBE]

Re : Remplacer point par virgule

La bonne solution par exemple sur la plage Range("B4:F6" ).!

 

[jip31]

Re : Remplacer point par virgule

OK encore merci bcp pour ton aide!

 

[JBARBE]

Re : Remplacer point par virgule

si la plage n'est pas déterminée, les points restent mais la macro ne plante pas contrairement à ce que j'ai affirmé !