Info sur macro double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If MsgBox("confirmez vous le transfert de cet article", vbYesNo) = vbYes Then
ActiveSheet.Unprotect
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("liste des articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
With Sheets("SAISIE")
rang = .Range("C53").End(xlUp).Row + 1
.Cells(rang, 2) = mysh.Cells(Target.Row, 1)
.Cells(rang, 3) = mysh.Cells(Target.Row, 2)
.Cells(rang, 9) = Target.Offset(0, 3)
.Cells(rang, 11) = Target.Offset(0, 2)
End With
End If
Set mysh = Nothing 'vide la variable
ActiveSheet.Protect
MsgBox "Article transferé !"
End If
End Sub

Cliquez pour agrandir...

If Target.Column = 1 Then 'double click dans la 1er colonne

Cliquez pour agrandir...