remplacement de point en virgule automatiquement dans une macro

**skipeemed** · 30/09/2010, 19h47

Salut tout le monde,

Je sélectionne par exemple A1 à A20 pus ctrl+H et je remplace les points par les virgules puis j'enregistre la macro.
Et quand je l'exécute ça fonctionne pas.Il n'ya aucune erreur mais elle ne fait pas de remplacement.

Quelqu'un peut il m'éclaircir les idées.

Skip

**rvtoulon** · 01/10/2010, 08h11

Salut,
il existe une fonction qui s'appelle "Replace" qui permet de faire ce que tu souhaites, il y a d'ailleurs quelques sujets sur le forum qui en parle.

voici ce que tu pourrais faire, adapte le a tes besoins :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim plage As Range
 
'initialise la plage
Set plage = Range("A1:A20")
 
'pour chaque cellule de ma plage
For Each c In plage
   'je remplace le . par une ,
     c.Value = Replace(c.Value, ".", ",")
Next c
 
End Sub

Tiens moi au courant.

**skipeemed** · 01/10/2010, 11h37

Il y'a un problème mon ami, ça s'execute pas. En fait il me sort aucune erreur et il ne fait aucun changement. Bizarre. Tu ne saurai pas d'ou viens le probleme?

Skip

**rvtoulon** · 01/10/2010, 11h50

Re,
quel genre de texte contient tes cellules?
Si par exemple tu as dans ta cellule 3 petits points sans espace "..." pour excel ce n'est pas 3 caractères point mais un caractère.
Fait un essai, en mettant par exemple en A1 : "Lundi." , en A2 "MAR.di" en dit nous si ça fonctionne.

en tout cas chez moi c ok

**skipeemed** · 01/10/2010, 12h05

en fait le code enlève le point sans mettre de virgule.
Si par exemple il y'a dans une cellule le nombre:
5993.0000
Il devient:
59 930 000
Voilà!!

Skip