Modif macro qui transforme point en virgule

B

Bernard-Louis

XLDnaute Occasionnel

• 20 Octobre 2006

• #2

Re : Fichier joint

Fichier joint avec mes excuses

 

Pièces jointes

• Classeur2.xls

  25.5 KB · Affichages: 64
• Classeur2.xls

  25.5 KB · Affichages: 67
• Classeur2.xls

  25.5 KB · Affichages: 68

Vote positif 0 Vote négatif

O

ODVJ

XLDnaute Impliqué

• 20 Octobre 2006

• #3

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+

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 20 Octobre 2006

• #4

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Octobre 2006

• #5

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

 

Pièces jointes

• blouis1.xls

  32 KB · Affichages: 86

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 20 Octobre 2006

• #6

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

 

Vote positif 0 Vote négatif

O

ODVJ

XLDnaute Impliqué

• 20 Octobre 2006

• #7

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 20 Octobre 2006

• #8

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.

 

Pièces jointes

• testPointVirgule.xls

  28.5 KB · Affichages: 66

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Octobre 2006

• #9

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

 

Pièces jointes

• blouis2.xls

  37.5 KB · Affichages: 69
• blouis2.xls

  37.5 KB · Affichages: 68
• blouis2.xls

  37.5 KB · Affichages: 70

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Octobre 2006

• #10

Re : Modif macro qui transforme point en virgule

re

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

voila voila

 

Pièces jointes

• blouis2.xls

  39 KB · Affichages: 87
• blouis2.xls

  39 KB · Affichages: 80
• blouis2.xls

  39 KB · Affichages: 79

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 20 Octobre 2006

• #11

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

 

Vote positif 0 Vote négatif

O

ODVJ

XLDnaute Impliqué

• 20 Octobre 2006

• #12

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 :

Code:

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 21 Octobre 2006

• #13

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Octobre 2006

• #14

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

 

Pièces jointes

• blouis2.xls

  40 KB · Affichages: 70
• blouis2.xls

  40 KB · Affichages: 75
• blouis2.xls

  40 KB · Affichages: 73

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 21 Octobre 2006

• #15

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

 

Vote positif 0 Vote négatif