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

ODB

XLDnaute Nouveau
Supporter XLD
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas