Double clic copier coller

Je souhaiterais: double clic d'une des cellules de Q6:Q36 faire copier de cette cellule dans la première cellule vide de E19:E39

Voilà protection ôtée

Bonjour à tous!

Nonno, code à placer dans la feuille Bon

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("Q6:Q36")) Is Nothing Then
Target.Copy Destination:=Range("E" & Rows.Count).End(xlUp).Offset(1, 0)
End If
End Sub

Bonne journée!

Bonjour,
Une autre !
Cdlt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
    If Not Intersect(Target, Me.Range("Q6:Q36")) Is Nothing Then
        Cancel = True
        Set r = Me.Range("E19:E39").Find("")
        Me.Cells(r.Row, 5).Value = Target.Value
    End If
End Sub

Bonjour et Merci à tous les deux!

Bon Week End

Cdlt

Nonno

Bonjour Nonno

Vous avez eu de la chance que je ne sois pas tomber sur votre post

Je vous invite à lire la charte du forumje vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]

• Un minimum de politesse est de rigueur (bonjour, SVP, merci, ...), sans cela vous aurez peu de chance d'obtenir une réponse et vous risquez de voir votre message supprimé par un modérateur.

bonjour Bruno

Désolé mais vous n'avez pas vu non plus mon post précèdent dans lequel on me signalait que mon fichier joint était protégé

ce que vous avez vu n'était que la réponse au membre qui m'avait signalé le problème.

Cordialement

Nonno

Re,

Dans ce cas, il fallait continuer sur le même post

Merci pour la précision, mais faites attention SVP

A+

Bonsoir,

Jean-Eric : Que signifie cette recherche de vide : Set r = Me.Range("E19:E39").Find("") ?

@ bientôt

LouReeD