Fractionner le contenu d'une cellule sur des lignes différentes

Bonjour,

Ci-joint mon fichier avec le résultat souhaité.

Je veux que toutes les informations contenues dans une cellule (Ex: B8) soient sur une ligne différente avec la répétition de la colonne A.

La macro Excel est :

Option Explicit

Sub Extraction()
Dim Tableau() As String
Dim i%, x$

Sheets("Feuil1").Activate
Range("B7").Activate
Do
x = ActiveCell.Value
Tableau = Split(x, ";")
For i = 0 To UBound(Tableau)
ActiveCell.Value = Tableau(i)
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value
ActiveCell.Offset(0, -2).Value = ActiveCell.Offset(-1, -2).Value
End If
ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate
If i <> UBound(Tableau) Then Selection.EntireRow.Insert
Next i
Loop Until ActiveCell = ""
End Sub

Merci de votre aide.

Bonjour hallecath et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Concernant votre demande, attention à votre formulation
"Je veux" est un ordre à mes yeux et nous sommes tous bénévoles ici
" Je voudrais", du conditionnel serait plus approprié je pense

Merci pour votre participation

Cordialement

Bonjour,

Sinon, sans VBA, mais avec Power Query, natif dans ta version Excel...

On pourrait peaufiner (supprimer les lignes vides...)

Bonne soirée

Edit : Oupsss, désolé Bruno...

Mais effectivement, formulation un peu "légère"

Merci pour le fichier !

J'ai fais une petite vérification et il manque des lignes pour certains codes (ex: 370 et 371)

Est-ce que je peux avoir le code de la macro car lorsque j'ouvre le fichier, le code est absent ?

Merci beaucoup!

Bonsoir à tous !

Je viens de réaliser une "petite vérification" de .... votre vérification !

La requête retourne très précisément les lignes existantes dans la source.....

Re-,

@ JFL, merci pour ta vérification (et que je confirme également) - Seule petite erreur de ma part, ne pas avoir supprimé la 1ère étape sur la modification du type de la colonne "Code", afin de la laisser en "Texte"

@hallecath, comme annoncé dans ma réponse, "Sans VBA", donc sans macro...
Uniquement par le biais de Power Query. Pour mettre à jour, cliquer quelque part dans le tableau des résultats, clic droit, "Actualiser" (ou dans le ruban "Données", "actualiser tout")
Pour lire les étapes, clic droit dans ce tableau, "Table", "Modifier", et à droite, tu auras les étapes

Ci-joint la V2, qui conserve le format "Texte" de la 1ère colonne

Bonne soirée

Merci ! C'est parfait!

Bonsoir à tous,

Un essai un peu tardif avec macro...à tester...

Cordialement,