Remplacer en vba le point par une virgule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 279 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
4 janvier 2008

yea elle cette petite macro me sauve la vie !!!!
Messages postés
38
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
20 septembre 2006

Bonjour,

Le plus rapide ne serait-il pas ?

Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

;-)
Messages postés
1
Date d'inscription
jeudi 9 février 2006
Statut
Membre
Dernière intervention
30 juin 2006

Trop bien cette application, tres pratique et tout a fait ce dont j avais besoin!!! Merci bien
Messages postés
1
Date d'inscription
vendredi 1 août 2003
Statut
Membre
Dernière intervention
18 décembre 2004

Il y a une autre solution :

.replace What:="." Replacement:="."
Messages postés
11
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
2 juin 2005

j'ai testé le source, c'est assez lent sur des gros fichiers, beaucoup de colonnes et de lignes. Comme il n'y a que du numérique dans le tableau j'ai enlevé le test sur le "." => plus rapide. Merci beaucoup

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.