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:
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
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")
Voici un exemple d'essai (repris d'un post sur ce forum):
Quelqu'un aurait la bonne syntaxe ?
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
Merci d'avance !
Partager