XL 2013 Copier une plage d’une feuille, coller sur une autre feuille en utilisant la 1re cellule non vide

Sub CopierDatas()
    With ThisWorkbook
        .Worksheets("Model").Range("E7:K80").Copy .Worksheets("Sommaire").Cells(Rows.Count, 1).End(xlUp)(2)
    End With
    Application.CutCopyMode = False
End Sub

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

Cliquez pour agrandir...

Hasco à dit:

Bonjour,

Dans le fichier joint la copie telle que vous la demandez. Cliquez sur la forme Bleue

VB:

Sub CopierDatas()
    With ThisWorkbook
        .Worksheets("Model").Range("E7:K80").Copy .Worksheets("Sommaire").Cells(Rows.Count, 1).End(xlUp)(2)
    End With
    Application.CutCopyMode = False
End Sub

Par contre :
1- Il n'est jamais bon de laisser des lignes vides dans un tableau de données quel qu'il soit
2 - pourquoi ne pas utiliser des tableaux structurés.


Dans la macro ci-dessus si vraiment une ligne vide est absolument nécessaire alors changez le 2 final par 3
Cordialement

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @christina99 , @Hasco

Voici ma version

*Merci de ton retour

@Phil69970

Cliquez pour agrandir...

christina99 à dit:

j’aimerais pouvoir transférer les données sans formules (si possibles en gardant la mise en forme) dans la feuille Sommaire,

Cliquez pour agrandir...