Remplacer en vba le point par une virgule

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_papaours)