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

[M92_]

Bonsoir à tous,

Je souhaite mettre en place un fichier Excel qui me permettra de répondre au besoin suivant :

Un petit détail : L'ordre des valeurs dans la colonne C n'est pas important!

Vous trouverez les éléments en PJ.

Bien à vous.

Cdt,
M92

 

[Rouge]

Bonjour,

Essayez ceci,

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

 

[M92_]

Bonjour,

Essayez ceci,

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

Merci @Rouge de votre retour.
Pour info, j'ai mis à jour mon post. Votre code prend-il en compte les nouveaux éléments svp ?

Cdt,
M92.

 

[Rouge]

Voilà,

 

[M92_]

Voilà,

Merci bcp!
Quand je clique sur le bouton Extraire, je reçois le message d'erreur suivant :

Que dois-je faire svp ?

Cdt,
M92.

 

[Rouge]

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

Voilà qui est fait

 

[M92_]

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

Voilà qui est fait

J'ai rajouté des lignes dans les colonnes A et B et ensuite cliqué sur le bouton = le code marche à merveille!

Merci beaucoup @Rouge.

Cdt,
M92.