pascal21
XLDnaute Barbatruc
PHP:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("facture").Range("a2:ak2").ClearContents
Cancel = True
Dim DerLig As Integer
If Not Intersect([b4:b450], Target) Is Nothing Then
DerLig = Sheets("facture").Range("b2").End(xlUp).Row + 1
Range(Target.Offset(0, 26).Address & ":" & Target.Address).Copy _
Destination:=Sheets("facture").Range("b" & DerLig)
End If
Sheets("facture").Range("j4").Value = Sheets("facture").Range("j4").Value + 1
End Sub
ce code me permet de recopier une ligne en cliquant sur une cellule de la colonne B
je n'arrive pas à trouver comment ne recopier que les valeurs
j'ai essayé d'ajouter un bout de code crée avec l'enregistreur de macro mais çà ne va pas
pouvez-vous m'aider merci