pb remplacement de point par virgule

Oeil2Lynx · 13 Janvier 2009

Bonjour à tous,

j'utilise le code ci-dessous pour remplacer tous les points par des virgules:

Code:

Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

mon problème c'est que dans le fichier joint, les cours du dollars sont convertis de 1.3440044 en 13440044, le point disparait sans laisser la place à la virgule comme dans les autres cellules, je ne vois pas à quoi cela est dû mais surtout comment le contourner.

A noter que je n'ai aucun problème pour remplacer les points par des virgules en passant par le menu Edition-->Remplacer.

Quelqu'un saurait-il à quoi est dû ce phénomène?

EXCELERATOR · 13 Janvier 2009

Re : pb remplacement de point par virgule

2 solutions rapides :

1) Edition => remplacer , par .

2) options régionales => nombres , symbole décimal: remplace , par .

A plus

juju_69 · 13 Janvier 2009

Re : pb remplacement de point par virgule

Hello,

J'avais été confront à ce problème, essaie tout simplement çà :

Code:

Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

Il ira alors te chercher ton séparateur. Si c'est une virgule il te l'appliquera.

@ +

Oeil2Lynx · 14 Janvier 2009

Re : pb remplacement de point par virgule

RESOLU

Merci juju_69 pour cette solution qui me convient.

A noter que même si visuellement les points sont toujours présent, le calcul dans les cellules fonctionnent après ce remplacement exotique.

O2L

mécano41 · 14 Janvier 2009

Re : pb remplacement de point par virgule

Bonjour à tous,

Il y a ceci qui fonctionne pour des données en A1:A100

Code:

Option Explicit

Sub essai()
Dim Cellule As Object
Dim Chaine As String
Dim Valeur As Single
For Each Cellule In Range("A1:A100")
    If InStr(1, Cellule.Value, ".") <> 0 Then
        Chaine = Replace(Cellule.Value, ".", ",")
        Valeur = CDbl(Chaine)
        Cellule.Value = Valeur
        Cellule.NumberFormat = "0.00000"
    End If
Next Cellule
End Sub

(Il y a des décimales qui se rajoutent)

Cordialement

pb remplacement de point par virgule

Oeil2Lynx

XLDnaute Nouveau

Pièces jointes

EXCELERATOR

XLDnaute Junior

juju_69

XLDnaute Occasionnel

Oeil2Lynx

XLDnaute Nouveau

mécano41

XLDnaute Accro

Discussions similaires

pb remplacement de point par virgule

Oeil2Lynx

XLDnaute Nouveau

Pièces jointes

EXCELERATOR

XLDnaute Junior

juju_69

XLDnaute Occasionnel

Oeil2Lynx

XLDnaute Nouveau

mécano41

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency