Fusionner les cellules en conservant le contenu

Bonjour à tous,

J'ai un superbe excel d'environ 6000 lignes à traiter... dans la colonne de gauche j'ai des réferences et dans la colonne de droite, j'ai pour chaque référence plusieurs produit chacun sur une ligne

j'aimerais, avec un macro, transformer ces cellules de produit en une seule avec un retour à la ligne entre chaque produit...

Merci d'avance

Bonjour,

Voici un code à essayer. Attention, les données d'origine sont effacées. Changer la destination finale au besoin.

Sub Fusion()
   Dim ar, i As Integer, j As Integer

   ar = Cells(1, 1).CurrentRegion.Value      'Liste débute en A1
   For i = 1 To UBound(ar, 1)
      For j = 2 To UBound(ar, 2)
         If ar(i, j) <> "" Then ar(i, 1) = ar(i, 1) & vbLf & ar(i, j)
      Next j
   Next i

   Cells(1, 1).CurrentRegion.Clear 'effacer les données
   Cells(1, 1).Resize(UBound(ar, 1), 1) = ar 'Liste fusionnée en A1

End Sub

Bonjour,

Merci cependant j'ai un soucis avec ce code... cela modifie aussi la colonne 1. Je souhaiterais dusionner uniquement les cellules associé a chaque référence mais en conservant les deux cases (la case référence et la case produit)

Merci d'avance

Oups, désolé, j'avais mal saisi la question.

Ceci devrait fonctionner:

Sub Fusion()
   Dim ar, i As Integer, j As Integer

   ar = Cells(1, 1).CurrentRegion.Value      'Liste débute en A1
  For i = 1 To UBound(ar, 1)
      For j = 3 To UBound(ar, 2)
         If ar(i, j) <> "" Then ar(i, 2) = ar(i, 2) & vbLf & ar(i, j)
      Next j
   Next i

  Cells(1, 1).CurrentRegion.Clear 'effacer les données
  Cells(1, 1).Resize(UBound(ar, 1), 2) = ar 'Liste fusionnée en A1

End Sub

merci beaucoup !!