Office 365 VBA copier/coller dans une cellule avec retour ligne

ODB

XLDnaute Nouveau
Bonjour,
Je cherche à copier/coller le contenu de trois colonnes dans une seule et même cellule, avec un retour à la ligne, sans effacer ce qui vient d'être collé. Or le code ci-dessous efface les données qui viennent d'être collées,


Mon code:
Sub macro2()
Dim i As Integer
Dim derniereligne As Integer
derniereligne = Range("A1").End(xlDown).Row
Dim j As Integer
Dim plage As Range
i = 2
j = 6
For i = 2 To 2
For j = 6 To 7

Set plage = Range(Cells(i, j), Cells(i, j))
plage.Select
plage.Copy
Range("Q" & i & ":Q" & i).PasteSpecial Paste:=xlPasteValues
Range("Q" & i & ":Q" & i).Value = Range("Q" & i & ":Q" & i) & Chr(10)
Next j
Next i

End Sub

Je n'ai pas vu de réponse pouvant me mettre sur la piste dans le forum,
Si l'un d'entre vous a une idée, je suis preneur !
Merci d'avance
 

Robert

XLDnaute Barbatruc
Bonjour ODB, bonjour le forum,

J'aurais plutôt écrit comme ça (à adapter) :

VB:
Sub macro1()
Dim COL As Byte

For COL = 6 To 8
    Range("Q2").Value = IIf(Range("Q2").Value = "", Cells(2, COL).Value, Range("Q2").Value & Chr(10) & Cells(2, COL).Value)
Next COL
End Sub
 

Discussions similaires


Haut Bas