point remplacer par virgule

crapounet

XLDnaute Junior
bonjour

Lors de saisie de donnée de nombre je voudrais que le . soit remplacer par une virgule

car de nombreux calculs sont éffectués et si il y a un . excel me retourne une erreur

ex : 125.45 devienne 125,15


merci pour votre aide
 

pierrejean

XLDnaute Barbatruc
Re : point remplacer par virgule

bonjour crapounet

a mettre dans le module de la feuille concernée

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
 Target.Value = CDbl(Replace(Target.Value, ".", ","))
On Error GoTo 0
End Sub
 

Discussions similaires

Réponses
26
Affichages
461

Statistiques des forums

Discussions
312 467
Messages
2 088 670
Membres
103 914
dernier inscrit
VAL965698