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

youky(BJ)

XLDnaute Barbatruc

• 6 Juin 2019

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

O

ODB

XLDnaute Nouveau

• 6 Juin 2019

• #3

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 7 Juin 2019

• #4

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

 

Vote positif 0 Vote négatif

O

ODB

XLDnaute Nouveau

• 7 Juin 2019

• #5

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,

 

Vote positif 0 Vote négatif