changement de type

[Reeaz]

Bonjour tout le monde,

J'ai un tableau excel et je voudrai créer une macro qui me remplace toutes les points trouvés par des virgules car j'exploite dans une macro un calcul et dans mon tableau, il y a parfois des pointe ou des virgules!
Par exemple, lorsque dans mon tableau j'ai : 29.518 la macro le changerait en 29,518, et ceux pour toutes les cellules du tableau.
Si qqun avait qqchose à proposer, ce serait sympa!!


Reeaz

 

[Max]

Salut,
solution toute bête: active l'enregistreur de macro.
Selectionne ta plage de cellule, puis fais contrôle+H, remplacer "," par ".".
Arrête l'enregistreur de macro.

Est-ce que ça répond à ta question?

 

[Benoit Cornille]

Salut,
Un truc comme ça devrait marcher :

Sub Remplacement()

Cells.Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub


Longue vie et prospère

 

[Reeaz]

Non cela ne marche pas, ca enlève les points mais il n'y a pas de virgule à la place!!

 

[Alain]

Bonjour,

Essaye avec :

Sub Remplacement_Point()
Dim Cell As Range
ActiveSheet.UsedRange.Select
'La ligne ci-dessus sélectionne toutes les cellules utilisées de la feuille
'A remplacer éventuellement par la sélection des cellules que l'on veut
'traiter
For Each Cell In Selection
valeur = Val(Cell.Value) 'renvoie la valeur exacte
Cell = valeur 'que l'on réécrit dans la même cellule
Next
End Sub

@+