extraire des données cellule excel entre | (barre verticale)

[urbanito1]

bonjour le forum,

j'ai dans une cellule des données entre le signe | barre verticale ( plusieurs |)
je voudrais les extraire comme dans mon fichier test
merci
urbanito1

 

[M12]

Re : extraire des données cellule excel entre | (barre verticale)

Bonjour,

Selection des quatres lignes A3 : A6

Données / Convertir Choisir Délimité, suivant Cocher AUTRES et mettre en caratéres ALT124 (à taper) , suivant
Placer dans I3 Terminer

 

[DoubleZero]

Re : extraire des données cellule excel entre | (barre verticale)

Bonjour, urbanito1, M12, le Forum,

Comme ceci ?

Option Explicit
Sub Données_convertir()
    Dim i As Integer, ii As Integer
    With Range("a3:a" & Rows.Count)
        .TextToColumns Destination:=Range("i3"), 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), Array(5, _
                            1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
                     , 1), Array(13, 1), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
    End With
    ii = Range("xfd3").End(xlToLeft).Column
    For i = ii To 9 Step -1
        If Cells(3, i).Value = "" Then Columns(i).Delete
    Next i
End Sub

A bientôt

 

[urbanito1]

Re : extraire des données cellule excel entre | (barre verticale)

le forum
merci M12, je connaissais convertir et j'y avais pas pensé, je me focalisais sur une formule

DoubleZéro, extra la macro....

merci bien et bonne apm