Copie de feuille 1 vers feuille 2 ?

[ADAHAYA]

Bonjour les amis,

Svp comment peut on copier un Tableau de feuille 1 vers feuilles 2 tout en conservant
le format des cellules, le style des écritures, les formules. Voir en pièce jointe.

 

[phlaurent55]

Re : Copie de feuille 1 vers feuille 2 ?

Bonjour adahaya,

voici ce que donne l’enregistreur de macro

Sub Macro1()
    Range("A2:G7").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

à+
Philippe

 

[ADAHAYA]

Re : Copie de feuille 1 vers feuille 2 ?

Bonjour adahaya,

voici ce que donne l’enregistreur de macro

Sub Macro1()
    Range("A2:G7").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

à+
Philippe

Merci......

 

[Pierrot93]

Re : Copie de feuille 1 vers feuille 2 ?

Bonjour,

on pourrait d'ailleurs l'optimiser un peu :

Option Explicit
Sub Macro1()
Range("A2:G7").Copy
With Sheets("Feuil2").Range("A2")
    .PasteSpecial Paste:=xlPasteColumnWidths
    .PasteSpecial Paste:=xlPasteAll
End With
End Sub

bonne soirée
@+