Microsoft 365 Copier/Coller plage de cellule vers nouvel onglet

gaelle31

XLDnaute Nouveau
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

XLDnaute Barbatruc
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é
VB:
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
 
Dernière édition:

gaelle31

XLDnaute Nouveau
Bonjour,
Ceci teste si la feuille ( "Copie de Recap") existe et copie la plage demandé
VB:
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

XLDnaute Barbatruc
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
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 821
dernier inscrit
hybroxis