Dadi147 XLDnaute Occasionnel 22 Novembre 2022 #1 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 Pièces jointes 2023.xlsm 15.7 KB · Affichages: 3
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
Solution sylvanu 22 Novembre 2022 Bonjour Dadi, Avec ce que j'ai compris, et : VB: 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.
Bonjour Dadi, Avec ce que j'ai compris, et : VB: 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.
sylvanu XLDnaute Barbatruc Supporter XLD 22 Novembre 2022 #2 Bonjour Dadi, Avec ce que j'ai compris, et : VB: 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. Pièces jointes 2023 (1).xlsm 26.8 KB · Affichages: 6 Vote positif 0 Vote négatif Solution
Bonjour Dadi, Avec ce que j'ai compris, et : VB: 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 XLDnaute Occasionnel 22 Novembre 2022 #3 sylvanu à dit: Bonjour Dadi, Avec ce que j'ai compris, et : VB: 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. Cliquez pour agrandir... Merci beaucoup pour votre aide constante envers moi..... Vous êtes l’homme des situations difficiles pour moi. Merci..................... Vote positif 0 Vote négatif
sylvanu à dit: Bonjour Dadi, Avec ce que j'ai compris, et : VB: 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. Cliquez pour agrandir... Merci beaucoup pour votre aide constante envers moi..... Vous êtes l’homme des situations difficiles pour moi. Merci.....................