Discussion :

[drakkar_agfa]

Bonjour à tous.

Mon code est assez simple. Il suffit de remplacer les "." par des "," dans la selection. Quand je fais ctrl-F remplacer (manuellement) tout se passe sans problème. Mais, j'ai une macro qui utilise Replace qui ne fonctionne pas.
Voici le code

Code :

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

1
2
3
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

(Fais moi-même et ensuite enregistré avec l'enregistreur de macro (pour être certain!).

Alors voici le problème :
Voici ce que j'ai avant d'exécuter la macro

12345.678912
12345.67891
12345.678
98765.21
98765.413
98765.4321
65894.25
32198.3
98713.65

et ensuite j'ai ceci avec le code


12345678912
1234567891
12345678
98765,21
98765413
]987654321
65894,25
32198,3
98713,65

Pourquoi ça fonctione quand il a seulement deux positions ou une après "." et sinon, le "." s'efface au lieu de se remplacer?

Si dans la sélection il a une cellule avec seulement "." alors le remplacement se fait correctement aussi.

Merci à l'avance de bien vouloir m'aider, je commence à me cogner la tête dans l'écran!

[jfontaine]

Bonjour,

Excel a tendance à ingérer sur nos besoins quand il s'agit de nombre

En transformant le format des cellules en Texte avant ca fonctionne

Code :

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

1
2
3
 
Selection.NumberFormat = "@"
Selection.Replace ".", ","

[drakkar_agfa]

Merci de l'essais mais ça ne fonctionne toujours pas.

Je n'ai pas remarqué de différence avec ou sans...

Dans l'aide en ligne, j'ai noté cette phrase

replace a une longueur nulle -> Une copie de l'expression, toutes les occurrences de find étant retirées.

Cela ressemble à mon résultat (mais pas sur tous!)

[jfontaine]

Va comprendre, un coup ca marche et un autre

CE code fonctionne, du moins je l'espère

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim R As Range
 
For Each R In Range("D3:D11")
 
    R.NumberFormat = "@"
    R.Value = CStr(Replace(R.Value, ".", ","))
 
Next

[drakkar_agfa]

Merci beaucoup!

Je commence déja à avoir un peu moins mal à la tête!