Remplacer en VBA le point par une virgule
Source / Exemple :
Attribute VB_Name = "RemplacerPointParVirgule"
'quand je remplace des données 100.253 en 100,253 si je
'passe par le menu remplace . par , pas de problemes
'si je fais la meme chose sous forme de macro voici le
'resultat : 100 253 ca me donne du format monetaire au lieu
'de me remplacer le . par ,
'fs, mpfe
Sub Remplace()
For Each cell In Selection
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.