Concatener lignes avec retour

misteryann · 12 Mai 2015

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 · 12 Mai 2015

Re : Concatener lignes avec retour

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

misteryann · 12 Mai 2015

Re : Concatener lignes avec retour

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

laurent950 · 12 Mai 2015

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 · 12 Mai 2015

Re : Concatener lignes avec retour

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

Concatener lignes avec retour

misteryann

XLDnaute Occasionnel

Pièces jointes

misteryann

XLDnaute Occasionnel

misteryann

XLDnaute Occasionnel

laurent950

XLDnaute Accro

misteryann

XLDnaute Occasionnel

Discussions similaires