Modif macro qui transforme point en virgule

[Bernard-Louis]

Bonjour a toutes et tous.
Je vous soumet un probleme que je n'arrive pas a resoudre.
J'ai une macro qui transforme les points en virgule d'un fichier que j'importe. Ce fichier comporte une 50 de colonnes et 5000 lignes.
Des que la macro tombe sur un chiffre : 50,000. elle bloque parce qu il y a une , puis apres les 000 un point. exemple en colonne E
Auriez vous la solution a mon probleme ?
Avec mes remerciements anticipes.
Cordialement

 

[Bernard-Louis]

Re : Fichier joint

Fichier joint avec mes excuses

 

[ODVJ]

Re : Modif macro qui transforme point en virgule

Bonjour,

pour quelles raisons fais-tu ce traitement?
tu récupères un fichier txt ou csv?
les données sont au format anglais?

toutes ces questions pour savoir s'il n'est pas possible de traiter en amont ton problème.

A+

 

[Bernard-Louis]

Re : Modif macro qui transforme point en virgule

Bonjour,
A priori il n'est pas possible de le traiter en amont (dixit les informaticiens) Je pense qu'il doit etre possible de mettre une condition, a savoir :
SI . et rien apres (c'est a dire pas de 0), faire sauter le .
La question est de savoir ou et comment mettre cette condition.
Cordialement

 

[pierrejean]

Re : Modif macro qui transforme point en virgule

bonjour Bernard-Louis

Salut OVDJ

voila une modification qui semble fonctionner

Attention
si ce fichier est un exemple il est imperatif de mettre les cellules a traiter en formAt Texte

 

[Bernard-Louis]

Re : Modif macro qui transforme point en virgule

Merci OVDJ et Pierrejean,
La macro bloque sur les cellules vides. Dans le fichier j'ai quelques colonnes vides.
Par ailleurs il faut valider le changement apres chaque cellule.
Je pense que l'on est sur la bonne voie.
Merci encore.
Cordialement

 

[ODVJ]

Re : Modif macro qui transforme point en virgule

Bonsoir à tous,

pourrais tu monter le fichier source (le txt) ou un extrait, histoire de vérifier ce qu'on peut en faire?
quand je disais en amont, je pensais à l'ouverture du fichier.

cordialement

 

[Bernard-Louis]

Re : Modif macro qui transforme point en virgule

Bonsoir à tous,
Je joins de nouveau un raccourci du fichier original. Le fichier se presente comme ceui ci. Il est en format standard, sauf la 1ere colonne qui est en format date.

 

[pierrejean]

Re : Modif macro qui transforme point en virgule

bonsoir Bernard-Louis

voila une version un peu meilleure

j'avais laissé trainer des msgbox (qui me servent a debugger)

il reste quelques valeurs qui ne finissent pas en nombre

doit-on les traiter ?

je n'aurai de tout façon pas le temps de regarder ce soir

 

[pierrejean]

Re : Modif macro qui transforme point en virgule

re

en fait c'etait plus simple que je ne le craignais

voila voila

 

[Bernard-Louis]

Re : Modif macro qui transforme point en virgule

Bonsoir Pierrejean,
Je te remercie de te pencher a nouveau sur mon probleme.
Sur le fichier exemple cela tourne impeccablement bien.
Sur le fichier reel, la premiere cellule vide bloque la macro sur cette ligne

If Asc(Right(cellule, 1)) = 46 Then

Si il y a un moyen de te transmettre 2 ou 3 lignes du fichier reel
a ton adresse perso je le fais, car ces donnees je ne veux pas les mettre en ligne.
je te souhaite une bonne soirée. Encore merci.
Cordialement

 

[ODVJ]

Re : Modif macro qui transforme point en virgule

Bonsoir à tous,

voici un code pour expliquer ce que j'entendais par "en amont", il traite tout à l'ouverture :

Sub txt_open()
Dim monfichier
monfichier = Application.GetOpenFileName("fichiers text (*.txt), *.txt")
If monfichier <> False Then
    Workbooks.OpenText Filename:=monfichier, Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 1) _
        , Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
        Array(10, 1), Array(11, 1), Array(12, 1)), DecimalSeparator:=".", _
        ThousandsSeparator:=",", TrailingMinusNumbers:=False
End If
End Sub

comme ton fichier était déjà un xls, j'ai recréé un csv renommé en txt.
je ne sais si ça correspond à ton contexte mais il est toujours possible de s'en rapprocher.

cordialement

 

[Bernard-Louis]

Re : Modif macro qui transforme point en virgule

Bonjour ODVJ et Pierrejean.
ODVJ, Je teste ton code lundi au boulot, bon WE et a bientot.
Cordialement

 

[pierrejean]

Re : Modif macro qui transforme point en virgule

bonjour Bernard-Louis

Salut ODVJ

une ligne( cellule=Trim(cellule) ) déplaçée et j'espere que cela ira mieux

en fait je presume que tes cellules vides contiennent en réalité des espaces

mais si la solution d'OVDJ est operationnelle je t'engage à la preferer (il est toujours mieux de travailler le plus en amont possible

 

[Bernard-Louis]

Re : Modif macro qui transforme point en virgule

Bonjour,
Je vous remercie Pierrejean ainsi que OVDJ en vous souhaiatnt un bon WE.
Je reprends tout cela lundi en faisant des tests en reels. Je vous tiens au courant.
Cordialement