Excel VBA copier coller plusieurs cellule Résolu/Fermé

Question

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

Farfadet88 · Answer

Sheets("feuille B").range("A1")= Sheets("Feuille A").Range("A1") & " " & Sheets("Feuille A").Range("B1") & " " & Sheets("Feuille A").Range("C1") 

Sheets("feuille B").range("B1")= Sheets("Feuille A").Range("D1")
Sheets("feuille B").range("C1")= Sheets("Feuille A").Range("E1")

gunbafo · Answer

J'ai mis l'exemple sur :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijIHprJ6c.xls 

Comment obtenir cela avec un code VBA

Le Pingou · Answer

Bonjour,
Sans VBA c’est aussi possible , mettre sur la feuille [Feuil2] les formules en :
L1C1 : =Feuil1!LC&", "&Feuil1!LC(1)&", "&Feuil1!LC(2)
L1C2 : =Feuil1!LC(2) 
L1C3 : =Feuil1!LC(2)

michel_m · Answer

bonjour ou Re
With Sheets(1)
Sheets(2).Range("A1") = .Range("A1") & vbLf & .Range("B1") & vbLf & .Range("C1")
End With

gunbafo · Answer

Merci Michel le code marche nikel!

Par contre comment faire pour que plusieur lignes (nombre indéfini) soient recopier de cette façon.
Faut-il boucler le code pour qu'il copie toutes les lignes avec une colonne de référence qui est toujours remplie?
Ex:  http://www.cijoint.fr/cjlink.php?file=cj200912/cij8cgtLIc.xls 
La colonne A est obligatoirement renseigné dans la feuille 1 et dans la feuille 2 doit être copié toutes les lignes du tableau de la feuille 1

Aidez moi Svp je rame grav!!!
Merci d'avance

Le Pingou · Answer

Bonjour,
Excusez-moi de vous avoir déranger.

Excel VBA copier coller plusieurs cellule

6 réponses

Discussions similaires