Discussion :

[Silmerian]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[jfontaine]

as tu penser a copier l'onglet

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Silmerian]

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 !

[Silmerian]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?