tactic6
XLDnaute Impliqué
Macro double clic [Résolu]
Bonjour le forum et tous les autres
Voici mon nouveau dilemme
je voudrais qu'en double cliquant sur une référence article celle ci va directement se mettre à la première ligne disponible sur ma facture
j'ai essayé avec ce code mais ça ne le fait pas ??
Pourriez vous m'aider svp ma liste définitive articles contient environ 4000 références
Merci
Bonjour le forum et tous les autres
Voici mon nouveau dilemme
je voudrais qu'en double cliquant sur une référence article celle ci va directement se mettre à la première ligne disponible sur ma facture
j'ai essayé avec ce code mais ça ne le fait pas ??
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim rang As Long, mysh As Object, nomcl As Long
Cancel = True
Set mysh = Sheets("Articles")
If Target.Column = 1 Then 'double click dans la 1er colonne
With Sheets("Facture")
rang = .Range("B53").End(xlUp).Row + 1
.Cells(rang, 1) = mysh.Cells(Target.Row, 13)
End With
End If
Set mysh = Nothing 'vide la variable
MsgBox "Copie effectue !"
End Sub
Pourriez vous m'aider svp ma liste définitive articles contient environ 4000 références
Merci
Pièces jointes
Dernière édition: