Excel VBA copier coller plusieurs cellule

Résolu
gunbafo Messages postés 55 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaiterais copier coller une plage (de ligne variable et de 18 colonnes dans feuille A) grâce à un bouton intégrer dans un userform vers une feuille B.
Mais le problème c'est que pour réduire la taille de la plage (dans la feuille B), je voudrais que plusieurs cellule de la même ligne (feuille A) soient copiés dans la même cellule (feuille B)

Ex:
feuille A:
A1=homme
B1=grand
C1=riche
D1=vieux
C1=radin
avec plusieurs ligne de ce type

pour obtenir sur la feuille B via un bouton:
A1= homme
grand
riche (avec les info coller en revenant à la ligne dans la même cellule)
B1= Vieux
C1=radin

J'ai un peu de mal à écrire un code correspondant à ce problème
Merci de l'aide que vous pouvez m'apporter

6 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour ou Re
With Sheets(1)
Sheets(2).Range("A1") = .Range("A1") & vbLf & .Range("B1") & vbLf & .Range("C1")
End With
1