Discussion :

[Invité]

Bonjour,

J'ai essayé ce macro pour copier les trois premières lignes, mais je n'arrive pas à conserver la même largeur et hauteur de quelques colonnes.

Code :

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

 Sheets("Feuil1").Rows("1:3").PasteSpecial Paste:=x1Pasteall, Operation:=xlNone, _ skipBlanks:=False, Transpose:=False Application.CutCopyMode = False

La même chose avec x1Pasteformats, x1ColumnWidths (à ma connaissance ça fonctionne sur une seule colonne)

Merci

[jackborogar]

Bonjour,

Je peux te proposer cela:

Donne un nom à ce que tu veux copier coller ici on utilisera "maplage"

Code :

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

1
2
3
4
5
6
 
Set shSource = ThisWorkbook.Sheets("TA FEUILLE")
Set shCible = ThisWorkbook.Sheets("Ton autre feuille")
 
shSource.Range("maplage").Copy
shCible.Range("A" & shCible.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial

Cdt,

Au temps pour moi j'ai mal lu ta requête:

Il y avait une solution que "fring" avait posté une fois qui est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CommandButton1_Click()
 
Dim SHsource As Worksheet, SHcible As Worksheet, x As Integer
Dim PlageSource As Range, CelluleCible As Range, i As Integer
 
Set SHsource = ThisWorkbook.Sheets("Feuil1") '<-- classeur source
Set SHcible = Workbooks("Classeur1").Sheets("Feuil2") '<-- classeur cible
Set PlageSource = SHsource.Range("test") '<-- plage de cellules à copier
Set CelluleCible = SHcible.Range("A1") '<-- destination (à partir de F11)
 
PlageSource.Copy CelluleCible '<-- copie de la plage
 
'adaptation hauteur des lignes
x = 0
For i = CelluleCible.Row To CelluleCible.Row + PlageSource.Rows.Count
    x = x + 1
    SHcible.Cells(i, 1).RowHeight = PlageSource.Rows(x).RowHeight
Next
 
'adaptation largeur des colonnes
x = 0
For i = CelluleCible.Column To CelluleCible.Column + PlageSource.Columns.Count
    x = x + 1
    SHcible.Cells(1, i).ColumnWidth = PlageSource.Columns(x).ColumnWidth
Next
 
 
 
 
End Sub

Je viens de le tester sa fonctionne, je te laisse maintenant l'adapter à tes besoins.

Cdt,

[Invité]

Il n'y a pas une autre méthode en utilisant les options de specialpaste ?

Je trouve ça très lourd à exécuter

[jackborogar]

Oui le code est lourd mais le SpecialPaste n'est pas fait pour garder la mise en forme. Il est donc il me semble impossible de le faire avec.

Cdt,

[ZebreLoup]

Ca ne marche pas en faisant ça (par exemple pour copier les 3 premières lignes de la feuille 1 vers la feuille 2) ?

Code :

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

1
2
3
Sheets("Feuil1").Rows("1:3").Copy
Sheets("Feuil2").Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

[Invité]

Ca ne marche pas en faisant ça (par exemple pour copier les 3 premières lignes de la feuille 1 vers la feuille 2) ?

Code :

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

1
2
3
Sheets("Feuil1").Rows("1:3").Copy
Sheets("Feuil2").Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Merci,
ça marche