[VBA E-00] Copie et mise en forme

Bonjour à tous !

Malgrès quelques recherches et pas mal d'essais, je reste bloqué sur un problème.

Je voudrais, dans un même classeur, copier une plage de cellules "formatées" d'une feuille à une autre. Cette plage contient des formes (shapes), des celulles fusionnées et du texte, il s'agit en fait d'un formulaire qui sera édité après copie.

Le problème est que le seul moyen que j'ai trouvé pour garder la mise en forme est:

Code:

---

1 2 3 4 5 6

Sheets(1).Select Rows("1:48").Select Selection.Copy Sheets(2).Select ActiveSheet.Paste Destination:=Worksheets(2).Range("A4")

---

C'est moche, je préfèrerais utiliser la methode d'instance mais malgrès mes essais, la hauteur des lignes et la copie des shapes ne sont pas prise en compte :?

Voici un exemple d'essai (repris d'un post sur ce forum):

Code:

---

1 2 3 4 5 6 7

Dim Mdl As Range Dim Dest as Range Set Mdl = Worksheets("Mdl").Range("A1:P48") Set Dest = Worksheets("Dest").Range("A4") Mdl.Copy Dest.PasteSpecial Paste:=xlPasteFormats

---

Quelqu'un aurait la bonne syntaxe ? :)

Merci d'avance !

as tu penser a copier l'onglet

Code généré par l'enregistreur de macro. A Adapter

Code:

---

1 2 3

Sheets("Mdl").Select Sheets("Mdl").Copy After:=Workbooks("Classeur4").Sheets(3)

---

Elas je ne peux pas de cette façon, le range source sera dupliqué x fois dans la feuille de destination, mais merci quand même pour ta contribution !

Je me répond pour vous exposer une solution que j'ai trouvée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Mdl As Variant Dim Dest As Worksheet Set Mdl = Worksheets("Mdl").Range(StrMdlRange) Set Dest = Worksheets("Dest") Dim TabValLine As Variant TabValLine = Array("20", ... je coupe cette partie hein ... "20")   Mdl.Copy Destination:=Dest.Range("A" & StartOfNewCopy & ":P" & StartOfNewCopy + MdlNbrRows -1) For i = StartOfNewCopy To StartOfNewCopy + MdlNbrRows -1 Dest.Rows(i).RowHeight = TabValLine(i - StartOfNewCopy) Next i

---

N'y a t'il pas plus simple, ou du moins un moyen un peu moins brute d'arriver au même résultat ?