Copier-Coller

[TheLio]

Code Copier-Coller dernières lignes

😎Hello l'forum
J'ai des collègues un peu ... "casse fichiers"
Je cherche donc à coller sur un bouton une fonction:
Copier la dernière ligne de la feuille
sur toutes les lignes de la feuille(page imprimable) suivante
sans les valeurs, uniquement les formats et les formules, et ceci valable chaque fois qu'une "page imprimable" est pleine<(toujours dans le même onglet)
J'ai essayé avec l'enregistreur de macro, mais ne suis pas satisfait du résultat.
Merci
A++
TheLio

 

[TheLio]

Re : Copier-Coller

Pour une des 105 personnes qui a affiché le fil je met le fichier en PJ ça peut être utile

ET a ++

 

[Pierrot93]

Re : Copier-Coller

Re

si tu veux 20 lignes essaye peut être comme ci dessous :

Sub Test_Copier_Lignes()
'28.09.07
Dim der_lig%, i%, k%, x%
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Sheets("Feuil1").Select
'recup de la dernier ligne de la feuille Feuil1
der_lig = Range("D65536").End(xlUp).Row
For k = 1 To Sheets.Count
    With Sheets(k)
        If der_lig = .Range("D65536").End(xlUp).Row Then
            .Range("B" & .Range("D65536").End(xlUp).Row & ":Y" & .Range("D65536").End(xlUp).Row).Copy
            For x = 1 To 20
                With .Range("B" & .Range("D65536").End(xlUp).Row + 1)
                    .PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
                    .PasteSpecial Paste:=xlPasteFormats
                End With
            Next x
        End If
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next k
Application.ScreenUpdating = True
End Sub

bonne soirée
@+

 

[TheLio]

Re : Copier-Coller

Merci Pierrot,
C'est top
A++