Scinder cellules Alt+Enter Et répliquer Cellules contiguës

Bonjour,

Je bloque...

A partir de l'onglet "source" du fichier joint je souhaite aboutir à l'onglet "souhait".

Avec le code ci-dessous, j'abouti pour l'instant à ce qu'il y a dans l'onglet "Feuil6" : décalage et le "code magasin" n'est pas répliqué.

Pouvez-vous m'aider pour y parvenir ?

Bonne fin d'après-midi,

Nesti

Sub TestSpliterLesCellulesAvecRetourChariot()

    SpliterLesCellulesAvecRetourChariot Sheets("source"), Sheets("Feuil6")

End Sub

Sub SpliterLesCellulesAvecRetourChariot(ByVal FeuilleSource As Worksheet, ByVal FeuilleCible As Worksheet)

Dim RetoursChariots As Variant
Dim I As Long, J As Long
Dim PremiereLigneSource As Long, DerniereLigneSource As Long
Dim LigneCible As Long

    With FeuilleCible
         LigneCible = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    End With

    With FeuilleSource
         PremiereLigneSource = 1
         DerniereLigneSource = .Cells(.Rows.Count, 2).End(xlUp).Row
         PremiereColonneSource = 1
         DerniereColonneSource = 3

         For I = PremiereLigneSource To DerniereLigneSource
         For K = PremiereColonneSource To DerniereColonneSource
             RetoursChariots = Split(.Cells(I, K), Chr(10))
             If UBound(RetoursChariots) > 0 Then
                For J = LBound(RetoursChariots) To UBound(RetoursChariots)
                    With FeuilleCible
                         FeuilleCible.Cells(LigneCible, K) = Trim(RetoursChariots(J))
                         LigneCible = LigneCible + 1
                    End With
                Next J
             Else
                FeuilleCible.Cells(LigneCible, K) = Trim(.Cells(I, K))
                LigneCible = LigneCible + 1
             End If
             Next K
          Next I
   End With
End Sub

Bonjour

Une solution PowerQuery, intégré à Excel, en quelques clics

merci infiniment Chris pour ta réponse super rapide. Je m'empresse de l'essayer

Bonjour,

Merci Chris, ça marche comme ça et j'arrive a scinder le contenu des cellules.

Je n'avais jamais utilisé Power Query et je cherche en réalité à "fusionner" 3 feuilles.

Dans le fichier joint, les feuilles s'appellent source1/2/3.

Et le résultat espéré est "souhait".

J'arrive à fusionner les données de 2 feuilles, mais les cellule scindées se mettent alors en ligne au lieu de rester en colonne.

Y-at-il moyen d'obtenir la mise en forme souhaitée ?

Bonjour

Le multi post n'est pas très apprécié : je t'ai répondu ailleurs hier soir sur ce point

pour la fusion voir ici http://www.excel-formations.fr/Trucs_astuces/PQ04.php