Concatener lignes avec retour

misteryann

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Classeur exemple.xlsx
    8.3 KB · Affichages: 21
  • Classeur exemple.xlsx
    8.3 KB · Affichages: 25
  • Classeur exemple.xlsx
    8.3 KB · Affichages: 28
Dernière édition:

laurent950

XLDnaute Accro
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024