Remplacer en vba le point par une virgule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 918 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

cs_Rickounet
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 !!!!
cs_Celeborn
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

;-)
peaceandloveman01
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
fdhaudt
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:="."
cs_lelette
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.