XL 2013 [Conversion + Transposition] J'ai besoin de votre aide

Rouge à dit:

Bonjour,

Essayez ceci,

VB:

Sub Extraire()
    Dim DerLig As Long, i As Long, j As Long
    Dim ligne As Variant
    Dim Chaine As String
    Columns(3).ClearContents
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 1
    For i = 1 To DerLig
        Chaine = ";" & Cells(i, "A") & ";"
        ligne = Split(Chaine, ";")
        For j = 1 To UBound(ligne)
            Cells(Lig, "C") = ligne(j)
            Lig = Lig + 1
        Next j
        Lig = Lig - 1
    Next i
End Sub

Cliquez pour agrandir...

Rouge à dit:

Voilà,

Cliquez pour agrandir...

Rouge à dit:

C'est rien, j'ai oublié d'affecter la macro au bouton,

Voilà qui est fait

Cliquez pour agrandir...