Discussion :

[Elstak]

coucou,
je cherche à convertir des données séparées par un point virgule.
les données se trouvent dans la premiere colonne, j'ai essayé de faire la macro avec l'enregistreur et ca me donne ceci :

Code :

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

1
2
3
4
5
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))

(j'ai selectionné A1 et fait convertir... données separees par point virgule)

Le probleme est qu'apres j'ai annulé la conversion en A1, j'ai lancé la macro et j'ai eu une erreur (impossible d'afficher les symbole du plan... et je ne peux pas en creer)

en plus, apparement il voit qu je doit avoir 7 colonnes (je dis ca en voyant "Array") je voudrai qu'il voit par lui meme le nombre de colonne qu'ily aura (car ca ne sera pas toujours 7 )

merci de votre aide

[Megaxel]

Salut!
je sais que ça fait un peu moins bien, mais... Et si tu le faisais toi-même:
Tu parcours ta colonne A, tu récupères le contenu de la cellule, que tu "splittes" en fonction du point-virgule, et tu remplis les cellules avec les morceaux.
Non?

[Elstak]

Ecoute bipbip je voyais pas trop comment faire, j'ai eu que cette idee là mais si tu m'expliques ton idée (là je vois pas trop ton "splittes") bah moi ca em dérange pas !!

[bidou]

faire un truc comme

Code :

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

Range("A1:A43").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote

suffit

[Megaxel]

Tiens, ça te fera un exemple d'utilisation de Split()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Convert()
    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
End Sub

[Elstak]

Bah bravo bipbip ton code va bien

j'aurais juste un ou deux ptit truc à faire eclaircir

1) ton a() ca correspond à quoi (c'est suerement tres con mais j'utilise jamais.. c'est un tableau )

2) Le UBound(a) je comprend pas trop ce que ca fait... par deduction ca renvoit un nombre (car tu fais for j=0 to Ubound(a))

Voilà en tout cas merci

[bidou]

J'en ai oublié un bout

Code :

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

Range("A1:A43").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True

désolé

[Elstak]

Bouh !! bah alors bidou on fait des farces?!

En tout cas ca marche mieux comme ca
à part un petit souci, ma ligne ressemble à ca

Code :

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

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

il me met bien dans la 1ere colonne PMA2801 mais dans la 2eme il met pas 5, il met 00:00:00 ( ??) pourtant dans la 3eme il met bien 3842 et ensuite aucun souci, c'est bizarre quand meme, ca doit etre le grand nombre de 0 qui servent à rien qui le rend fou

[bidou]

oui, le formatage des colonnes dans la redistribution est souvent un peu exotique. Il faut généralement lui ré appliquer un format après.

[Megaxel]

Bon, je répond quand même à tes questions:
1°) oui, c'est un tableau. On ne peut pas vivre sans les tableaux!! Que serait la vie sans l'art? Tu comprends, je pense, le principe.
Je l'ai déclaré sans sa taille, ce qui est moche car très consommateur, mais on peut le réduire: regarde l'aide à Redim (preserve).
Et bien sûr, tu accèdes à chaque élément par son indice.
2°) Ubound, c'est l'indice le plus grand du tableau, bien sur. Et tu as son petit copain Lbound(). Devine ce que c'est...

[Elstak]

Aucune idée ( )

Et merci d'avoir répondu j'y comptais bien !!

[hu2sain]

Bonjour,

en étant débutant, j'essaye de convertir la colonne A vers B1 dans une cellule 1QB;3QB;2DA....

Formule utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Bouton1_Cliquer()
    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
End Sub

Merci de votre aide

[Invité]

Bonjour,
https://www.developpez.net/forums/d1...f/#post9962625