comment transposer plus de 256 codes?

[CelluleVide]

Bonjour le forum,
Je voudrais coller en colonne une liste de code qui au départ sont concatenés dans une seule cellule avec pour séparateur un point virgule.
Ex 01234;56789;101112 Doit devenir:
01234
56789
101112

Cela parait tres simple mais j'ai plus de 256 codes donc pas assez de colonne dans XL pour convertir a la base

Si qqun connait le code vba qui fait cela...

 

[kiki29]

Re : comment transposer plus de 256 codes?

A adapter
s'il s'agit de mettre les données dans une seule colonne sur X Lignes

Option Explicit
Sub Tst()
Dim i As Long
Dim Ar() As String
    Ar = Split(Cells(1, 1), ";")
    For i = LBound(Ar) To UBound(Ar)
        Cells(i + 1, 1) = Ar(i)
    Next i
End Sub

Sinon Excel 2007 : 16384 Colonnes et 1048576 Lignes et
s'il s'agit de mettre les données sur une seule ligne dans X Colonnes

Option Explicit
Sub Tst2()
Dim i As Long
Dim Ar() As String
    Ar = Split(Cells(1, 1), ";")
    For i = LBound(Ar) To UBound(Ar)
        Cells(1, i + 1) = Ar(i)
    Next i
End Sub

 

[CelluleVide]

Re : comment transposer plus de 256 codes?

bonjour Kiki29,

C'est parfait. Merci pour ton aide