[Toutes versions] Formatage texte vers colonne

[ziad91]

Bonjour,

J'ai un petit problème dans ce code:

Code :

1
2
3
4
5
6
7
 
Range("N7:N207").Select
            Selection.TextToColumns Destination:=Range("N7"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=True, 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), Array(9, 1), Array(10, 1))

En fait j'ai une chaine de caractère sous cette forme:
"Amazon.com, Inc.,175.93,200,N/A,N/A,"1/12/2012",92.74,183.313,206.925,175.93"

Et j'aimerai la formater pour qu'à chaque virgule on enregistre l'élément dans une cellule. Malheureusement dans le nom de la société on a une virgule, ce qui me décale tout. Je pensais commencer le formatage par la fin mais je ne vois pas comment faire.

Merci de votre aide.

[Ormonth]

Bonjour,

pas tout compris, mais regardes du côté de Split dans l'aide VBA aussi, sans résoudre ton problème tu pourras voir si ça peut te faciliter les choses globalement...

Sinon, si tu as un nom fixe qui comporte une virgule qui pose souci et qui est à éviter, tu peux peut-être changer la virgule par un autre signe dans ce nom avant ton traitement et rétablir ensuite ?

cordialement,

Didier

[ziad91]

En fait, je télécharge directement ce String depuis internet.

Donc j'obtiens:
"Amazon.com, Inc.,175.93,200,N/A,N/A,"1/12/2012",92.74,183.313,206.925,175.93"

Pour l'instant avec cette méthode j'obtiens ce tableau:
|Amazon.com| Inc.|175.93|200|N/A|N/A|"1/12/2012"|92.74|183.313|206.925|175.93|

Or je voudrai avoir:
|Amazon.com Inc.|175.93|200|N/A|N/A|"1/12/2012"|92.74|183.313|206.925|175.93|

Donc le nom dans une seul case et non pas divisé en deux.

Merci

[Ormonth]

Bonjour,

comment veux-tu répondre à ça, tout dépend de la structure de la chaîne, est-ce toujours Amazonxxx qui est au début, il y a-t-il sinon toujours un nom à virgule à isoler, est-il en 1ère position etc...

je n'ai pas de connexion actuellement sur BouleDeCristal.com

cordialement,

Didier

[jfontaine]

Bonjour,

Dans ton cas, je ne vois que la bonne vieille méthode de open for input
ce code fonctionne si seul le premier nom peut comporter des séparateurs ","

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Dim str As String
Dim strTab() As String
Dim intEcart As Integer
Dim Ligne As Long
Dim i As Integer
 
Ligne = 2
 
'Chemin et nom du fichier à importer
Open "c:\test.txt" For Input As #1
 
Boucle sur chaque fichier
Do While Not EOF(1)
    Line Input #1, str
    strTab = Split(str, ",")
    intEcart = (UBound(strTab) + 1) - 10 '10 étant le nombre de colonnes attendues
 
    For i = 0 To intEcart
        If Range("A" & Ligne).Value <> "" Then Range("A" & Ligne).Value = Range("A" & Ligne).Value & ","
        Range("A" & Ligne).Value = Range("A" & Ligne).Value & strTab(i)
    Next i
 
    Range("B" & Ligne).Value = strTab(1 + intEcart)
    Range("C" & Ligne).Value = strTab(2 + intEcart)
    Range("D" & Ligne).Value = strTab(3 + intEcart)
    Range("E" & Ligne).Value = strTab(4 + intEcart)
    Range("F" & Ligne).Value = strTab(5 + intEcart)
    Range("G" & Ligne).Value = strTab(6 + intEcart)
    Range("H" & Ligne).Value = strTab(7 + intEcart)
    Range("I" & Ligne).Value = strTab(8 + intEcart)
    Range("J" & Ligne).Value = strTab(9 + intEcart)
 
    Ligne = Ligne + 1
Loop
 
Close #1

[Theze]

Bonjour,

Si le nom de la société est toujours le même, tu peux tester ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Parser()
 
    Dim Tbl
    Dim I As Integer
 
    Tbl = Split("Amazon.com, Inc.,175.93,200,N/A,N/A,1/12/2012,92.74,183.313,206.925,175.93", ",")
 
    Range("A1") = Tbl(0) & Tbl(1)
 
    For I = 2 To UBound(Tbl)
 
        Range("A" & I) = Tbl(I)
 
    Next I
 
End Sub

Hervé.

[pressdell]

Sinon tu peux tenter la conversion en numérique de la deuxième partie de ta chaîne (IsNumeric()).
Si la fonction IsNumeric() te renvoi false, tu re-concatènes etc..

Dans ton cas, "Inc." ne l'ai pas, la fonction te renvoi false et tu peux donc concaténer ton_tableau(0) et ton_tableau(1).