Remplacer point par virgule

JBARBE

XLDnaute Barbatruc

• 16 Janvier 2013

• #2

Re : Remplacer point par virgule

Bonjour,

comme ceci peut-être !

Code:

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

 

Vote positif 0 Vote négatif

J

jip31

Guest

• 16 Janvier 2013

• #3

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 16 Janvier 2013

• #4

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 !

 

Vote positif 0 Vote négatif

J

jip31

Guest

• 16 Janvier 2013

• #5

Re : Remplacer point par virgule

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 16 Janvier 2013

• #6

Re : Remplacer point par virgule

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

 

Dernière édition: 16 Janvier 2013

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 16 Janvier 2013

• #7

Re : Remplacer point par virgule

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

 

Pièces jointes

• TEST-5.xls

  54 KB · Affichages: 40

Dernière édition: 16 Janvier 2013

Vote positif 0 Vote négatif

J

jip31

Guest

• 16 Janvier 2013

• #8

Re : Remplacer point par virgule

OK encore merci bcp pour ton aide!

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 16 Janvier 2013

• #9

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é !

 

Vote positif 0 Vote négatif