Discussion :

[stsym]

Bonjour

J'ai un fichier dans le quel je souhaite remplacer dans une colonne la virgule par un point dans les données présentes de type "1,55".
J'ai créé par la méthode pas à pas une macro qui réalise cette conversion et qui fonctionne très bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub RemplaceVirgule()
    Columns("A:A").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
    Range("A1").Select
End Sub

Ce qui est étrange est que lorsque j'affecte cette macro à un bouton et que je clique sur ce dernier je n'obtiens pas la conversion souhaitée.
Etrange aussi, si je ne saisis que des "," dans cette colonne, l'action de mon bouton remplace bien la virgule par le point.

Depuis ce matin je navigue sur les forums sans trouver de solutions ou du moins sans savoir les adapter à mon cas.
Est ce que ce problème est lié à mon profil du type " paramètres régionaux", ou à celui du format des cellules ??

D'avance merci pour votre aide
Cordialement.
SySym

[Invité]

Bonsoir,
Pourquoi remplacer les virgules par des point alors que le point est la virgule en Anglai et Excel les converti en virgules!

[Marc-L]

Bonjour, bonjour !

En fait si les données sont bien au format numérique, la virgule affichée (séparateur du format régional)
est déjà un point en interne ! Sans connaître le but de la manœuvre …

Edit : Robert m'a devancé et nous sommes bien d'accord !

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[stsym]

Bonjour Rudurupt
Bonjour Marc-L

Merci pour vos réponses.

Mais je ne comprends pas pourquoi ce remplacement puisse se faire en manuel (ctl+H) et pas par macro?

Bonne journée.
Stsym

[Docmarti]

Bonjour

Quel est le format des cellules et quel est le séparateur décimal sur ton ordi?

Voici 2 techniques qui devraient fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub tt()
Dim s
s = Selection.Value
s = Application.Substitute(s, ",", ".")
Selection.Value = s
End Sub
 
Sub tt2()
For Each Cell In Selection
    Cell.Value = Replace(Cell.Value, ",", ".")
Next
End Sub

[stsym]

Bonjour Docmarti

Séparateur décimal la virgule.
Format Cellule "Standard".

Les deux solutions fonctionnent parfaitement si je passe les cellules au format Texte.

Merci pour ton aide.
Cordialement.
StSym

[Docmarti]

Si tu veux empêcher Excel d'interpréter les valeurs sans devoir passer par le format Texte, tu peux utiliser FormulaLocal .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub tt()
Dim s
 
s = Selection.Value
s = Application.Substitute(s, ",", ".")
Selection.FormulaLocal = s
End Sub

[Polygos]

J'ai même essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Columns("C:C").Select
'    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
'        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
'        ReplaceFormat:=False

Ben non.