C'est n'est point une énigme pour Mme Virgule...

[Charly88]

Aurait pu dire ce cher Talon.

Bonjour à tous,
Je récupère des données dans un fichier txt, ce sont des nombres, j'ouvre mon txt sous excel, copie les données sur une feuille de mon classeur contenant une macro.

Voici 2 exemples de nombres :
170.802,57
646,23

Mon problème c'est l'écriture avec ce maudit point, d'un je trouve cela illisible et de deux mes données sont reconnues comme texte.
Qu'à cela ne tienne, remplaçons les points par du vide :

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

Et là, patatra, voici le résultat :

170802,57
64623 <= ma virgule a disparu !

Tous les nombres contenant des points réagissent correctement, tous ceux qui n'ont qu'une virgule se retrouver multipliés par 100.

Plus étonnant encore (ou bien logique ?), lorsque je fais la manipulation manuellement, cela fonctionne parfaitement et pour tout dire, lors de mon Ctrl+F, il reste encore la combinaison point-vide de ma macro lancée précédemment dans les champs.

Pourquoi ? Et comment régler le problème ?


P.S : Je ne serais pas étonné que cela vienne du paramétrage régional d'excel et que cela fonctionne correctement ailleurs...

 

[BOISGONTIER]

Re : C'est n'est point une énigme pour Mme Virgule...

Bonjour,

 For Each c In Selection
  c.Value = CDbl(Replace(c.Text, ".", ""))
Next c

JB
Formation Excel VBA JB

 

[Pierrot93]

Re : C'est n'est point une énigme pour Mme Virgule...

Bonjour Charly

essaye peut être en convertissant ta colonne par le code ci-dessous, à voir si cela peut t'aider :

Range("A:A").TextToColumns Destination:=Range("A1"), ThousandsSeparator:="."

bonne journée
@+

 

[Papou-net]

Re : C'est n'est point une énigme pour Mme Virgule...

Bonjour Charly,

Ci-joint ton fichier modifié : j'ai ajouté le module FormatCellules.

Espérant t'avoir aidé.

Cordialement.

Bonjour BOISGONTIER, Pierrot93,

Vous avez été les plus rapides, et de plus, ma solution est identique à la tienne BOISGONTIER.

Désolé.