Concatener lignes avec retour

Re : Concatener lignes avec retour

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

Re : Concatener lignes avec retour

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

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

Re : Concatener lignes avec retour

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