XL 2019 Bouble Click

[aziz]

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

 

[M12]

Bonjour
A tester par double clic sur cellule colonne B

 

[aziz]

Bonjour M12,
je n'ai pas compris ta réponse
Merci

 

[fanch55]

Salut,
ce que @M12 te suggère, c'est de passer par l'événement Worksheet_BeforeDoubleClick,
par exemple:

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

 

[aziz]

J'ai un code erreur 9

 

[M12]

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

 

[aziz]

Bonjour M12,
Peux-tu renvoyé le fichier car il n'est sur le fils de la discussion
Merci d'avance

 

[M12]

Re,

 

[aziz]

Merci beaucoup