XL 2016 Action double clic

adcom81 à dit:

bonjour,

j ai trouve un script que j ai du mal a modifier

actuellement :

Quand je double clic sur une cellule de la colonne A de la sheet 1, la valeur de la colonne F pour la ligne cliquee est copie dans la sheet 2 colonne A.



Je souhaiterai :

Avoir ce fonctionnement mais :

Si la ligne ou est realise le double clic est compris entre 2 et 3 alors on copie la valeur colonne F de la sheet1

Si la ligne ou est realise le double clic est compris entre 4 et 5 alors on copie la valeur colonne G de la sheet1



Je n arrive pas a prendre en compte le changement de ligne.


un peu d aide et la bienvenue

merci a vous.

Adn

Cliquez pour agrandir...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Lig&
    If Target.Row < 2 Or Target.Row > 5 Then Exit Sub
    Cancel = True
    Lig = Sheets("Sheet2").Range("A" & Sheets("Sheet2").Rows.Count).End(xlUp).Row + (Abs(Sheets("Sheet2").[a1] <> ""))
    With Target
        If .Row > 3 Then
            Sheets("sheet2").Cells(Lig, 1) = Cells(.Row, "G")
        Else
            Sheets("sheet2").Cells(Lig, 1) = Cells(.Row, "F")
        End If
    End With
End Sub