Concatener lignes avec retour

[misteryann]

Bonjour au forum.
Je cherche, je cherche, mais je ne trouve pas.

Voilà mon soucis:
Sur une feuille, j'ai des valeurs allant de B1 à C...

Mon souhait: concatener les valeurs des colonnes B et C dans la cellule D1 (avec un retour à la ligne et si possible avec 🙂) entre les valeurs).

Rien ne vaut un fichier exemple...
Merci par avance.

 

[misteryann]

Re : Concatener lignes avec retour

Zut, j'ai oublié de dire que c'est un code VBA dont j'ai besoin.
Désolé.

 

[misteryann]

Re : Concatener lignes avec retour

re zut, ce n'est pas un smiley que je veux, c'est ( : )

 

[laurent950]

Re : Concatener lignes avec retour

Bonsoir

Sub test()

For i = 1 To 6
If Cells(i, 3) = "" Then
Range("E1") = Range("E1") & Cells(i, 2)
Else
Range("E1") = Range("E1") & Cells(i, 2) & " : " & Cells(i, 3)
End If
Range("E1") = Range("E1") & Chr(10)
Next i
End Sub


et avec ( : )


Sub test()

For i = 1 To 6
If Cells(i, 3) = "" Then
Range("E1") = Range("E1") & "( " & Cells(i, 2) & " )"
Else
Range("E1") = Range("E1") & "( " & Cells(i, 2) & " : " & Cells(i, 3) & " )"
End If
Range("E1") = Range("E1") & Chr(10)
Next i
End Sub

 

[misteryann]

Re : Concatener lignes avec retour

Un GRAND Merci Laurent.
Exactement ce que je souhaitais.
Bien cordialement.