[VBA-E]Format de cellule etrange

**Elstak** · 20/04/2006, 14h18

coucou,

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

Code :

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

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 :

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

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

Des idées ??

**Vesta** · 20/04/2006, 14h55

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

**Vesta** · 20/04/2006, 14h57

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...

**ouskel'n'or** · 20/04/2006, 17h07

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+

**Elstak** · 21/04/2006, 08h32

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

(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 !!

)

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

**ouskel'n'or** · 21/04/2006, 08h55

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+

**Elstak** · 21/04/2006, 09h07

Hmmm

Code :

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

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 ??

**ouskel'n'or** · 21/04/2006, 09h23

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

Code :

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

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+

**Elstak** · 21/04/2006, 09h28

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

**Elstak** · 21/04/2006, 09h33

Il renvoit 44

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

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

**ouskel'n'or** · 21/04/2006, 09h43

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+

**Elstak** · 21/04/2006, 09h45

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

Code :

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

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

**Elstak** · 21/04/2006, 09h57

Ces virgules vont me tuer.... ahhh

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

Code :

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

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

**ouskel'n'or** · 21/04/2006, 10h14

Non, fais ça

Code :

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

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+

**Elstak** · 21/04/2006, 10h31

Beuh...

Marche pas

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 :

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

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

**ouskel'n'or** · 21/04/2006, 10h46

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+

**Elstak** · 21/04/2006, 10h56

Je sais désolé...

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

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

)

enfin voilà je garde donc ma solution

**ouskel'n'or** · 21/04/2006, 14h22

Fais un dernier essai avec ça

Code :

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

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