XL 2016 Action double clic

[adcom81]

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

 

[Jacky67]

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

Bonjour,
Essaye comme ceci

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

 

[adcom81]

Bonjour jacky,

un double merci :
1/ pour repondre a ma question initiale.
2/ pour avoir avoir "ameliorer" le script Sheets("sheet2").Cells(Lig, 1) = Cells(.Row, "G") c est bcp plus propre que le copy/paste....


encore merci et bonne journee


adn