Copier vers une autre feuille

[apdf1]

Bonjour,

Voila j'aimerais copier les cellules de la feuil1 en blanc vers la feuil2 avec les mêmes configuration

Un très grand merci pour celui ou celle qui pourra m'aider……..

Je joint mon fichier qui seras plus explicit

Cordialement
Max

 

[david84]

Re : Copier vers une autre feuille

Bonsoir,
qu'entends-tu par

avec les mêmes configuration

?
Peut-être comme cela :

Sub test()
Application.ScreenUpdating = False
    Worksheets(1).Cells.Copy
    With Sheets("Feuil2")
    .Activate
    .Range("A1").PasteSpecial Paste:=xlPasteValues
    .Application.CutCopyMode = False
    .Range("A1").Select
    End With
    Worksheets(1).Activate
    Application.ScreenUpdating = True
End Sub

A+

 

[apdf1]

Re : Copier vers une autre feuille

Bonsoir David,

Et merci d'avoir répondu alors avec les mêmes configuration avec les même cellules et si possible les même largeur de colonne

Bonne soirée et merci encore

Max

 

[david84]

Re : Copier vers une autre feuille

Re
pas sûr de comprendre...
à tester :

Sub test2()
    Worksheets(1).Cells.Copy Worksheets(2).Cells(1, 1)
End Sub

A+