Microsoft 365 Copier/Coller plage de cellule vers nouvel onglet

[gaelle31]

Bonjour,

Je souhaiterais copier/coller uniquement une plage de donnée de mon tableau dans une nouvelle feuille de calcul (du même ficher).

J'ai créé la macro suivante :
Sub CopierFeuille()
Sheets("RECAP").Copy After:=Sheets(Sheets.Count)
End Sub

Or, l'ensemble de ma feuille RECAP est ici copiée dans le nouvel onglet. Alors que je souhaiterais uniquement que les cellules allant de la cellule A1 à J243 soient copiées dans la nouvelle feuille.

En espérant que vous puissiez m'aider.
Merci d'avance.

 

[Jacky67]

Bonjour,

Je souhaiterais copier/coller uniquement une plage de donnée de mon tableau dans une nouvelle feuille de calcul (du même ficher).

J'ai créé la macro suivante :
Sub CopierFeuille()
Sheets("RECAP").Copy After:=Sheets(Sheets.Count)
End Sub

Or, l'ensemble de ma feuille RECAP est ici copiée dans le nouvel onglet. Alors que je souhaiterais uniquement que les cellules allant de la cellule A1 à J243 soient copiées dans la nouvelle feuille.

En espérant que vous puissiez m'aider.
Merci d'avance.

Bonjour,
Ceci teste si la feuille ( "Copie de Recap") existe et copie la plage demandé

Sub CopierFeuille()
    If IsError(Evaluate("='Copie de Recap" & "'!A1")) Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Copie de Recap"
    End If
    Sheets("RECAP").[A1:J243].Copy Sheets("Copie de Recap").[a1]
End Sub

Dans cet exemple la feuille créé est nommée "Copie de Recap", cela est facilement modifiable

 

[gaelle31]

Bonjour,
Ceci teste si la feuille ( "Copie de Recap") existe et copie la plage demandé

Sub CopierFeuille()
    If IsError(Evaluate("='Copie de Recap" & "'!A1")) Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Copie de Recap"
    End If
    Sheets("RECAP").[A1:J243].Copy Sheets("Copie de Recap").[a1]
End Sub

Dans cet exemple la feuille créé est nommée "Copie de Recap", cela est facilement modifiable

Ca marche ! Merci beaucoup.

J'aimerais en plus conserver la même mise en forme que dans mon fichier initial s'il-vous-plait.
Comment puis-je faire ?

 

[Jacky67]

Ca marche ! Merci beaucoup.

J'aimerais en plus conserver la même mise en forme que dans mon fichier initial s'il-vous-plait.
Comment puis-je faire ?

Re..
Essaye

Sub CopierFeuille()
    If IsError(Evaluate("='Copie de Recap" & "'!A1")) Then
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Copie de Recap"
    End If
    Sheets("RECAP").[A1:J243].Copy
    With Sheets("Copie de Recap").[a1]
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
End Sub