Microsoft 365 Copier/coller par double clic

[netparty]

Bonjour à tous

Je cherche le moyen de copier une cellule par un double clic dans une autre cellule.

Exemple :

Si je double clic sur la cellule A je copie la valeur de la cellule G et la colle dans la cellule A.

Quelqu'un aurais une idée a me proposer.

Merci d'avance

 

[Bernard_XLD]

Bonjour netparty le forum

une évènementielle à placer dans le module de la feuille concernée.

Cordialement

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
    If .Column = 1 Then .Value = .Offset(0, 6).Value
    End With
End Sub

 

[netparty]

Bonjour netparty le forum

une évènementielle à placer dans le module de la feuille concernée.

Cordialement

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
    If .Column = 1 Then .Value = .Offset(0, 6).Value
    End With
End Sub

Bonjour Yeahou

Merci pour ton code

Est-il possible après le double clic de placer la sélection sur la cellule en dessous ?

 

[Bernard_XLD]

voila !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 1 Then
            .Value = .Offset(0, 6).Value
            .Offset(1, 0).Select
        End If
    End With
End Sub

 

[netparty]

voila !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 1 Then
            .Value = .Offset(0, 6).Value
            .Offset(1, 0).Select
        End If
    End With
End Sub

Un grand merci
Bonne soirée