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

  • Initiateur de la discussion Initiateur de la discussion M92_
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M92_

XLDnaute Junior
Bonsoir à tous,

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


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
 

Pièces jointes

Dernière édition:
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
 

Pièces jointes

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

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
337
Réponses
15
Affichages
1 K
Compte Supprimé 979
C
Retour