Bonjour à Tous
Je souhaiterai modifier ma macro en bouton en double click dans la cellule concerné de la colonne B de mon fichier BS
La macro renvoie des données du fichier BS vers un fichier JAT (ci-joint les deux).
Merci pour votre Aide voici la formule
Sub Envoi_vers_Tableau_JAT()
Dim sh1 As Object, sh2 As Object, rw2 As Long
Set sh1 = Sheets("FNDWRR")
Set sh2 = Workbooks("JAT.xlsm").Sheets("OF JAT")
rw2 = sh2.Cells(Rows.Count, 6).End(xlUp).Row + 1 ' basé sur la colonne N°6 en F
sh2.Cells(rw2, "B").Value = sh1.Cells(ActiveCell.Row, "B")'OF Initial
sh2.Cells(rw2, "D").Value = sh1.Cells(ActiveCell.Row, "H") 'Lieu
sh2.Cells(rw2, "E").Value = sh1.Cells(ActiveCell.Row, "K") ' Gestion
sh2.Cells(rw2, "F").Value = sh1.Cells(ActiveCell.Row, "P") 'code Article
sh2.Cells(rw2, "G").Value = sh1.Cells(ActiveCell.Row, "Q") 'Designation
sh2.Cells(rw2, "H").Value = sh1.Cells(ActiveCell.Row, "AB") 'qté Sortir
End
End Sub