Microsoft 365 Copier/coller par double clic

netparty · 25 Mars 2021

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 · 25 Mars 2021

Bonjour netparty le forum

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

Cordialement

VB:

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

Bernard_XLD · 25 Mars 2021

Bonjour netparty le forum

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

Cordialement

VB:

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 · 25 Mars 2021

Yeahou à dit:
Bonjour netparty le forum

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

Cordialement

VB:

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 · 25 Mars 2021

voila !

VB:

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 · 25 Mars 2021

Yeahou à dit:

voila !

VB:

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

Microsoft 365 Copier/coller par double clic

netparty

XLDnaute Occasionnel

Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Discussions similaires