Discussion :

[colombine28]

dans une colonne je souhaiterai, à l'aide d'une macro, remplacer les virgules par un point. Au moment ou je crée la macro ceal fonctionne mais quand je copie d'autre données et que je lance la macro celle-ci ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Columns("E:E").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

merci pour votre aide

[potili2]

AMHA ça vient du problème de paramétrage dans windows...préférence régionales, ou un truc comme ça

[ouskel'n'or]

Quelle raison as-tu de vouloir remplacer les virgules par des points ?
Je te pose cette question car une solution existe mais elle peut ne pas s'appliquer à ce que tu veux obtenir
Consiste à faire précéder tes nombres par une apostrophe
Cells(Nl,Nc) = "'" & Cells(Nl,Nc)
Ainsi tu convertis tes nombres en chaînes de caractères.
Ensuite, tu opères tes remplacements.

[alsimbad]

tu peux aussi essayer la fonction replace sous cette forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(valeur, ",", ".")

mais ça viens peut etre pas de là.

[ouskel'n'or]

En faisant ce que colombine veut faire, dans Excel, s'il fait une addition des nombres obtenus avec des points, il fera sauter toutes les décimales. Y'a qu'à essayer. Transformé en string, il a encore la posibilité d'utiliser CNum... et encore, je n'en sais rien, je n'ai jamais essayé de me compliquer la vie sans une raison valable... raison valable que nous n'allons pas tarder à connaître... si colombine nous répond

[dadavyvy]

dans une colonne je souhaiterai, à l'aide d'une macro, remplacer les virgules par un point. Au moment ou je crée la macro ceal fonctionne mais quand je copie d'autre données et que je lance la macro celle-ci ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Columns("E:E").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

Quel type de virgule as-tu dans tes nouvelles données? Est-ce un Chr(44) ou un Chr(130)?
Et évite également les Select. Essaie donc d'enchainer les 2 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Columns("E:E").Replace What:=Chr(44), Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
Columns("E:E").Replace What:=Chr(130), Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

[ouskel'n'or]

Salut davy
Je n'avais pas pensé à ça Mais tu me donnes une idée... Quel est le vrai problème de colombine ? N'est-ce pas précisément de ne pas avoir la bonne virgule ? Auquel cas, ce serait cette solution qui lui conviendrait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("E:E").Replace What:=Chr(130), Replacement:=Chr(44), LookAt:=xlPart, _
        SearchOrder:=xlByRows

Juste une idée... sur laquelle colombine donnera certainement son avis... si colombine veut bien se manifester

[alsimbad]

A défaut que colombine daigne revenir, moi j'aurais appris quelque chose. c'est quoi la difference entre les deux virgules?