comment transposer plus de 256 codes?

CelluleVide · 3 Septembre 2007

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 · 3 Septembre 2007

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

Code:

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

Code:

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 · 3 Septembre 2007

Re : comment transposer plus de 256 codes?

bonjour Kiki29,

C'est parfait. Merci pour ton aide

comment transposer plus de 256 codes?

CelluleVide

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

CelluleVide

XLDnaute Occasionnel

Discussions similaires

comment transposer plus de 256 codes?

CelluleVide

XLDnaute Occasionnel

kiki29

XLDnaute Barbatruc

CelluleVide

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency