XL 2019 Bouble Click

aziz

XLDnaute Occasionnel
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
 

Pièces jointes

  • BS.xlsm
    23.8 KB · Affichages: 9
  • JAT.xlsm
    19.3 KB · Affichages: 5

fanch55

XLDnaute Barbatruc
Salut,
ce que @M12 te suggère, c'est de passer par l'événement Worksheet_BeforeDoubleClick,
par exemple:
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Count = 1 Then
        If Not Intersect(Target, Columns("B")) Is Nothing Then Envoi_vers_Tableau_JAT
    End If

End Sub
 

M12

XLDnaute Accro
Re,
As-tu au moins regardé sur mon fichier envoyé la macro qui se trouve dans la feuille.
l'événement Worksheet_BeforeDoubleClick ne peut se trouver dans un module

donc avec mon fichier (BS) tu ouvres ton autre fichier (JAT)
si tu fais un double-clic dans une des cellules remplies de la colonne B du fichier BS, les données seront transférées sur le fichier JAT
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou