[VBA-E]Format de cellule etrange

coucou,

voilà j'importe un fichier texte dans excel grace au code suivant

Code:

---

1 2 3 4 5

Dim myFile As String myFile = "D:\excel\Fichier.txt" ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myFile, Destination:=Range("A1")).Refresh Call Convert

---

puis je convertis (Sub Convert) car une ligne de mon fichier texte ressemble à ca : Nom;chiffre1;chiffre2;...;chiffre7
et je veux dans la colonne A, "Nom" puis dans la colonne B "chiffre1" etc...

voici le code de Convert :

Code:

---

1 2 3 4 5 6 7 8 9 10

DerniereLigne = Cells(65535, 1).End(xlUp).Row Dim ContenuInitial As String Dim a() As String For i = 1 To DerniereLigne ContenuInitial = Cells(i, 1).Value a() = Split(ContenuInitial, ";") For j = 0 To UBound(a) Cells(i, j + 1).Value = a(j) Next j Next i

---

Le texte se sépare bien mais j'ai quelque probleme pour le contenu des certaines colonnes. En effet dans mon fichier texte, des nombres sont ecrit 0000415,15 et il sont copiés ainsi dans excel. Je voudrais les changer pour n'avoir que 451,15. Ils sont placé coté gauche des cellules, comme du texte, mais j'ai beau changer de format, ca reste tel quel :roll:

Des idées ?? :)

Rajoute un CInt(valeur) pour convertire ta chaine texte en nombre...

Non je dis des conneries lol

CInt c pour les entiers
CDec(valeur)

Et véririfie bien dans tes parametres régionneaux que le symbole décimal c'est la virgule...

Tu peux aussi avoir un problème avec la virgule selon l'appli qui a créé le txt.
La virgule peut avoir deux codes ascii, 44 et 130. Or Excel n'accepte que chr(44).
Tu remplaces toutes tes virgules -> chr(130) par des virgules "normales" soit "," soit chr(44) et le tour est joué... si c'est ça ;)

A+

Coucou le dodo,
ca faisait longtemps que je t'avais pas vu :D

(merci vesta pour ta réponse mais si je converti deja "manuellement", ca ne fonctionne pas... :( )

Par contre en supprimant la virgule et en la retapant ca considere bien le nombre comme un nombre (c'est fou !! :mouarf: )

Donc je vais essayer de voir comment je peux faire pour convertir avec l'asci :roll:

Ok, donc c'est bien le problème de la virgule. Tu testes le code des caractère d'une cellule et une fois que tu sais ce que c'est, tu sélectionnes ta feuille et tu fais remplacer chr(130) (si c'est lui) par "," et là je pense que tu n'as plus besoin de nous ;)

A+

Hmmm :(

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ValeurTemp As String ValeurTemp = Cells(2, 3) MsgBox (ValeurTemp) For i = 1 To Len(Cells(2, 3)) If (Mid(Cells(2, 3), i, 1) = Chr(130)) Then ValeurTemp = Left(Cells(2, 3), i - 1) & Chr(44) & Right(Cells(2, 3), Len(Cells(2, 3)) - i) Cells(2, 9) = ValeurTemp End If Next

---

voilà mon code, je sais que ca correspond pas à ce que tu m'as dit mais si je met dans mon if, =chr(44), il ne fait rien, il ne me copie rien dans la cellule(2,9) alors qu'il le fait avec =chr(130) donc jme suis dit que tu avait peut etre inversé les 2 et quil interepretait les 44 et non les 130 mais en remplacant j'ai toujours la meme ecriture... :(

j'ai une autre solution mais je voudrais savoir si y'a rien de mieux à faire : regarder la caractere a gauche de ma valeur et tant que c'est un 0 alors on le supprime mais la maniere dont j'imagine faire le code est assez longue. Je pense etre obligé de faire : si le caractere de gauche = 0 alors la valeur vaut la partie droite -1 caractere mais peut etre quil y a plus court ??

Non, pour tester ta valeur je m'y prendrais autrement (imagine que ce ne soit pas 130 mais une autre valeur...)

Code:

---

1 2 3 4 5 6

For i = 1 To Len(Cells(2, 3).value) LeChar = asc(mid(cells(2,3).value,i,1)) ok = Lechar > 47 and Lechar < 58 if not ok then msgbox LeChar Next

---

A+

Wooo, jcompernd pas trop ton code (entre 47 et 58) mais jcomprend l'idée

de toute facon cetai un peu con ce que j'ai proposé au dessus car ca ne regle pas le probleme, ca chaneg juste l'apparence mais le texte est toujours a gauche de la cellule... :?

jte dit quel est le code asci renvoyé par la ";" dasn 2 min :)

Il renvoit 44 8O

Je pige pas alors.... quand je met le code d'avant avec =chr(44) il execute jamais ce quil y a dans le if.... alors que ca vaut 44 8O 8O


mais ca passe le if avec 130.. euh.. ? moi pas comprendre

Ok, alors essaie simplement de remplacer "," par "," sur toute ta feuille. Je pense que la conversion est faite par Excel au moment de la lecture.
Je crois me souvenir que j'ai fait ça et que ça fonctionne.

A+

Oops... autant pour moi j'ai legerement merdouillé... :oops:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim ValeurTemp As String Dim Numero ValeurTemp = Cells(2, 3) MsgBox (ValeurTemp) For i = 1 To Len(Cells(2, 3)) If (Mid(Cells(2, 3), i, 1) = Chr(44)) Then ValeurTemp = Left(Cells(2, 3), i - 1) & Chr(44) & Right(Cells(2, 3), Len(Cells(2, 3)) - i) Cells(2, 9) = ValeurTemp Cells(2, 10) = Cells(2, 9) Cells(2, 10) = Format(Cells(2, 9), ".00") End If Next

---

C'est bien avec 44 que ca marche et non avec 130 desole.... :(

mais le probleme set toujours le meme... c'est bien une virgule 44 mais il ne me marque pas mon nombre correctement


Ps : ok ouskel je etste ton idée

Ces virgules vont me tuer.... ahhh :cry:

bon je vois pas comment faire autrement que ca pour ton idée ouskel

Code:

---

1 2 3 4 5 6 7

ValeurTemp = Cells(2, 3) For i = 1 To Len(Cells(2, 3)) If (Mid(Cells(2, 3), i, 1) = ",") Then ValeurTemp = Left(Cells(2, 3), i - 1) & "," & Right(Cells(2, 3), Len(Cells(2, 3)) - i) Cells(2, 9) = ValeurTemp End If Next

---

Pour info dans la concatenation de valeur temp en mettant chr(44) au lieu de "," ca ne va toujours pas, mon resultat reste mon ecriture de depart :marteau:

Non, fais ça

Code:

---

1 2 3

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

---

Si tu as des virgules ailleurs, aucun inconvénient de les remplacer par des virgules ;)

Tu dis

A+

Beuh...

Marche pas :cry: :cry:
C'est pas mal ton idée mais mon probleme reste :?
j'ai etsté de remplacer un nombre (7) par des "," ca me met bien des "," a la place des "7" par exemple mais en mettant "," par "," (bah ca fait rien d'apparent forcement) mais le format est le meme.

J'ai cherché sur une autre piste et ca fonctionne :
Mon fichier texte est de la forme suivante
Nom1; .... ;Nom8
Nom1;Nombre1; .... ;Nombre7
Nom1;Nombre1; .... ;Nombre7
...


Lors de la convertion (j'ai enregistré un macro en utilisant "convertir") j'ai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Range("A1").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1)) Range("A2:A51").Select Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1))

---

C'est idiot je trouve, avant je faisais ca pour "A1:A51" car les actions son les memes... mais là en faisant en 2 fois (1 fois pour la premeire ligne qui est du etxte et l'autre pour les 50 lignes de nombre qui suivent) bah ca me met les nombre comme il faut. Je comprend pas trop la différence mais bon...

en tout cas merci quand meme :D

Comme quoi, il faut toujours tout dire dans la question... Ton fichier, si tu remplaces l'extension txt par csv, devient un csv et un csv s'ouvre avec Excel sans que tu aies à définir les multiples Array...
Tu devrais essayer, ça me paraîtrait plus simple... ;)

A+

Je sais désolé... :oops:

Si j'avais deviné que ca avait un impact que la premeire ligne soit que du texte et que les autre ne soient pas uniquement que du texte... :?
J'aurais direct utilisé ma solution :mouarf:


sinon pour info : en renommant en CSV

voici ma ligne 2, colonne par colonne (ma ligne 1, tout est dans la cellule A1)

PMA2801;5;0000003842
86;159998;0000031450
99;00000768
5719;0000031999
60;00006290
1980;

PMA2801;5;0000003842,86;159998;0000031450,99;00000768,5719;0000031999,60;000006290,1980;
(ca c'est son apprence dans un txt)

Mais je trouve ce resultat normal. Csv = comma separated values non?
et moi c'est pas des comma mes separateur ce sont des ";"
d'apres le code generé j'en deduis que ca s'appelle des semicolon : Semicolon:=True (c'est le seul True.. d'ailleurs ca me parait bizarre comme nom 8O )

enfin voilà je garde donc ma solution :D

Fais un dernier essai avec ça

Code:

---

1 2 3 4

Sub OuvrifFichierTextDélimiteurPointVirgule() Workbooks.OpenText Filename:="c:\EssaiExcel.txt", DataType:=xlDelimited, Other:=True, OtherChar:=";" End Sub

---

Et ne manque pas de me dire si ça ne marche pas ;)

A tout'

Là on est d'accord :lol:

c'est un peu moins lourd que ma solution :P