Copier un ligne selectionne dans feuille A vers une autre feuille B

Le 12/02/2020 à 15:04

comment créer un bouton VALIDE qui copier la ligne sélectionne dans la Feuille A dans une autre Feuille B

la Feuille B contient le meme tableau que la Feuille A

la Feuille B est une tableau qui non vide danc on ajoute la ligne dans le bas de tableau (dans la ligne vide ) et les coller

Le 12/02/2020 à 15:14

Bonjour,

à tester,

Sub Copie_Ligne()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")

rw = sh2.Cells(Rows.Count, "A").End(xlUp).Row
sh1.Rows(ActiveCell.Row).Copy sh2.Cells(rw + 1, "A")
End Sub

Le 12/02/2020 à 15:28

Bonjour

Vois cela

Sub test()
DL = Range("A" & Sheets(2).Rows.Count).End(xlUp).Row
If Range("A" & ActiveCell.Row) <> "" Then
    Rows(ActiveCell.Row).Copy Sheets(2).Range("A" & DL)
Else
    MsgBox "Veuillez sélectionner une ligne à copier"
End If
End Sub

Je teste que il y ait bien une ligne non vide sélectionnée.

Bye

Le 13/02/2020 à 15:02

mon fichier est le joint . je veux le bouton valider dans la feuile article charge la ligne dans le tableau de feuille Travaux

10dist-td-002-souro.xlsm (68.60 Ko)

Le 15/02/2020 à 04:59

re,

voici un exemple,

24hamzman10-dist-td-002-souro.xlsm (69.52 Ko)

Le 15/02/2020 à 09:17