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

[ODB]

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

 

[youky(BJ)]

Bonjour ODB,
Voici un petit code à mettre dans un module et à exécuter
Bruno

Sub enligne()
For lig = 2 To [F65000].End(3).Row
Cells(lig, 6) = Replace(Cells(lig, 6), Chr(10), " ")
Next
End Sub

 

[ODB]

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)]

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

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

 

[ODB]

Bonjour, merci beaucoup pour votre réponse, la question est effectivement vague mais je pouvoir adapter votre réponse à ce dont j'ai précisément besoin,
Merci encore,