ne recopier que les valeurs

[pascal21]

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

bonsoir
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

 

[Victor21]

Re : ne recopier que les valeurs

Bonjour.

Essaie :

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
sheets("facture").Range("b" & DerLig).PasteSpecial Paste:=xlPasteValues
End If
Sheets("facture").Range("j4").Value = Sheets("facture").Range("j4").Value + 1
End Sub

 

[Gorfael]

Re : ne recopier que les valeurs

Salut pascal21 et le forum

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLig As Long
Sheets("facture").Range("a2:ak2").ClearContents
Cancel = True
If Not Intersect([B4:B450], Target) Is Nothing Then
    DerLig = Sheets("facture").Cells(Rows.Count, "B").End(xlUp).Row + 1
    Range(Target.Offset(0, 26).Address & ":" & Target.Address).Copy
    Sheets("facture").PasteSpecial xlPasteValues
End If
Sheets("facture").Range("j4").Value = Sheets("facture").Range("j4").Value + 1
End Sub

Ne sachant pas à quoi elle sert, je ne l'ai pas testée.
Mais elle me semble étrange : tu commence par effacer les valeurs en ligne 2, et tu ne te sers pas de celle-ci.
Si tu utilises le Up de End, tu ne peux pas partir de la ligne 2.
A+