Convertir les données en plusieurs colonnes

tototiti2008 à dit:

Bonjour judikael,

Euh... tu copies ta colonne dans la colonne suivante et tu fait Données - Convertir sur la colonne suivante ?

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour judikael, le fil, le forum

Il suffit de modifier la cellule de destination
Regarde la pièce jointe 151033

EDITION: houps, bing , bonjour tototiti2008 😉

Cliquez pour agrandir...

tototiti2008 à dit:

Re,

Si tu dois faire une formule, la conversion ne sera pas automatique... à moins de faire une macro qui écrit la formule, et dans ce cas autant le faire en macro (d'autant que VBA a une fonction qui s'appelle Split qui est bien pratique, ou bien simplement enregistrer la macro avec données/convertir).

En bref, pourquoi une formule ?

Cliquez pour agrandir...

judikael à dit:

...disons que par expérience, je préfère automatiser...

Cliquez pour agrandir...

Sub Macro1()
Dim x&
x = ActiveSheet.[A65536].End(xlUp).Row
Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
   
With Range("B1:E1")
    .FormulaR1C1 = "=COLUMN()-1"
    .Value = .Value
        With .Resize(x)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Interior.ColorIndex = 33
        .Borders.LineStyle = xlContinuous
        End With
End With

End Sub

Staple1600 à dit:

Re

Tu as vu mon dernier message ?


Tu as testé la macro ?

Cliquez pour agrandir...

tototiti2008 à dit:

Re,

juste un essai en "simili"-formule (un peu triché 😉)

Cliquez pour agrandir...