OVH Cloud OVH Cloud

Remplacement virgule par point

5 réponses
Avatar
khinoa
Bonjour à tous,

Dans Excel 97 et 2002 je voudrais remplacer la virgule par un point.

En saisissant 2002,1004 je voudrais qu'Excel affiche 2004.1004. J'ai essayé
la fonction Replace avec
Columns("a").Replace "," ,"."
cela ne marche pas. Par contre Replace fonctionne pour d'autres
remplacements. Comment remplacer la virgule toujours située à partir de 5ème
caractère depuis la gauche?

Je voudrais également un format personnalisé. Quand on tape 2004,60 affiche
2004.0060 c'est-à-dire affiche 1 à 3 zéros devant le chiffre après le point
ou la virgule.

Je m'explique.

Tape 2004,3 affiche 2004.0003
Tape 2004,35 affiche 2004.0035
Tape 2004,322 affiche 2004.0322

D'avance merci pour votre aide

khinoa

5 réponses

Avatar
garnote
Salut khinoa,

Une piste :

Sub Remplace_Virgule_Point()
Application.ScreenUpdating = False
Selection.NumberFormat = "@"
For Each c In Selection
c.Value = Replace(c, ",", ".", 1)
Next
End Sub

Serge


"khinoa" a écrit dans le message de news:
40ae347d$0$13933$
Bonjour à tous,

Dans Excel 97 et 2002 je voudrais remplacer la virgule par un point.

En saisissant 2002,1004 je voudrais qu'Excel affiche 2004.1004. J'ai
essayé

la fonction Replace avec
Columns("a").Replace "," ,"."
cela ne marche pas. Par contre Replace fonctionne pour d'autres
remplacements. Comment remplacer la virgule toujours située à partir de
5ème

caractère depuis la gauche?

Je voudrais également un format personnalisé. Quand on tape 2004,60
affiche

2004.0060 c'est-à-dire affiche 1 à 3 zéros devant le chiffre après le
point

ou la virgule.

Je m'explique.

Tape 2004,3 affiche 2004.0003
Tape 2004,35 affiche 2004.0035
Tape 2004,322 affiche 2004.0322

D'avance merci pour votre aide

khinoa




Avatar
khinoa
Bonjour Serge,

D'accord pour le code. J'ai vu entretemps que personne apparemment ne
pouvait remplacer la virgule par un point avec Replace.

Merci

khinoa
Avatar
garnote
Si ce n'est pas trop indiscret, pourquoi veux-tu remplacer
les , par des . ? Ma macro transforme les nombres en texte;
pas très pratique pour faire des calculs !

Serge


"khinoa" a écrit dans le message de news:
40ae5617$0$13937$
Bonjour Serge,

D'accord pour le code. J'ai vu entretemps que personne apparemment ne
pouvait remplacer la virgule par un point avec Replace.

Merci

khinoa




Avatar
khinoa
Rebonjour Serge,

dans la colonne il ne s'agit pas de faire des totaux mais seulement d'entrer
des numéros d'ordre avec l'année sous forme AAAA suivi d'un point (qui se
transforme en virgule hélas) et d'un maximum de 4 chiffres allant de 1 à
9999.

Le problème sera résolu en contournant la difficulté. Finalement au lieu du
point finissant en virgule le séparateur sera le trait d'union

au revoir

khinoa
Avatar
Gloops
Voilà, c'est sûrement le plus simple.

Sinon, en mettant une apostrophe au début de la cellule, tu pourras
garder ton point. Même chose en mettant la cellule au format texte si
c'est plus commode.

khinoa a écrit, le 21/05/2004 22:10 :

Rebonjour Serge,

dans la colonne il ne s'agit pas de faire des totaux mais seulement d'entrer
des numéros d'ordre avec l'année sous forme AAAA suivi d'un point (qui se
transforme en virgule hélas) et d'un maximum de 4 chiffres allant de 1 à
9999.

Le problème sera résolu en contournant la difficulté. Finalement au lieu du
point finissant en virgule le séparateur sera le trait d'union

au revoir

khinoa