Microsoft 365 Regrouper des lignes d'une même cellule excel en une seule

ODB

XLDnaute Nouveau
Bonjour à Tous,
Dans le fichier joint, onglet "Site e-com SD1", colonne F, je voudrais regrouper les lignes d'une même cellule en une seule; Est ce possible ?
Merci à Vous
 

Pièces jointes

  • Matrice site_test_3.xlsm
    201.6 KB · Affichages: 13

ODB

XLDnaute Nouveau
Merci beaucoup, ça fonctionne parfaitement
Une fois cette opération faite (mettre tout le texte sur 1 seule ligne), je voudrais modifier la ligne de texte obtenue: ajouter le mot et le caractère "Ingrédient", ":", et mettre un saut de ligne après la liste d'ingrédients,

Avez vous une idée à proposer ?

Merci
 

youky(BJ)

XLDnaute Barbatruc
Bonjour,
c'est vague la question . . . ou mettre ingrédient
Donc avec cette macro qui fait tout d'un coup,
Je mets "Ingrédients :" à la place du 1er "-" et un saut de ligne
A tester
Bruno
VB:
Sub enligne()
For lig = 2 To [F65000].End(3).Row
tx = Cells(lig, 6)
Cells(lig, 6) = Replace(tx, Chr(10), " ")
tx = Cells(lig, 6)
pos = InStr(tx, "-")
If pos > 0 Then
tx1 = Split(tx, "-")(0)
Cells(lig, 6) = tx1 & "Ingrédient :" & Chr(10) & Right(tx, Len(tx) - pos)
End If
Next
End Sub
 

Discussions similaires