XL 2016 Copie la valeur de cellules spécifiques avec le nombre de lignes copiées

[Dadi147]

Bonjour, je souhaite copier des données de la feuille 1 vers la feuille2, avec la valeur des cellules répétée sur le nombre de lignes copiées.
Et lors de la copie à nouveau, les données précédentes sont conservées et copiées directement en dessous

 

[sylvanu]

Bonjour Dadi,
Avec ce que j'ai compris, et :

Sub Bouton1_Clic()
    Dim DL1%, DL2%, Taille%
    Application.ScreenUpdating = False
    DL1 = Range("A65500").End(xlUp).Row
    With Sheets("Feuil2")
        DL2 = .Range("B65500").End(xlUp).Row + 1
        Taille = DL2 + DL1 - 9
        .Range("C" & DL2 & ":H" & Taille) = Range("A9:G" & DL1).Value   ' Copier Coller valeurs
        .Range("B" & DL2 & ":B" & Taille) = Range("A4")                 ' Date
        .Range("I" & DL2 & ":I" & Taille) = Range("D4")                 ' Name
        .Range("J" & DL2 & ":J" & Taille) = Range("F4")                 ' Machine
    End With
End Sub

Si on appuie plusieurs fois sur le bouton, on copie plusieurs fois. Sinon précisez quand copier.

 

[Dadi147]

Bonjour Dadi,
Avec ce que j'ai compris, et :

Sub Bouton1_Clic()
    Dim DL1%, DL2%, Taille%
    Application.ScreenUpdating = False
    DL1 = Range("A65500").End(xlUp).Row
    With Sheets("Feuil2")
        DL2 = .Range("B65500").End(xlUp).Row + 1
        Taille = DL2 + DL1 - 9
        .Range("C" & DL2 & ":H" & Taille) = Range("A9:G" & DL1).Value   ' Copier Coller valeurs
        .Range("B" & DL2 & ":B" & Taille) = Range("A4")                 ' Date
        .Range("I" & DL2 & ":I" & Taille) = Range("D4")                 ' Name
        .Range("J" & DL2 & ":J" & Taille) = Range("F4")                 ' Machine
    End With
End Sub

Si on appuie plusieurs fois sur le bouton, on copie plusieurs fois. Sinon précisez quand copier.

Merci beaucoup pour votre aide constante envers moi.....
Vous êtes l’homme des situations difficiles pour moi. Merci.....................