Double clic : copie colle

[choupi_nette]

Bonjour,
Ja'i une petite private sub qui est vraiment très utile...
Quand je double clique sur une cellule ça me la copie colle dans un autre onglet
Mais je n arrive pas a ce que ça me mette les infos qui vont a coté..
Exemple avec mon fichier
Je double clique sur AAA
Ça me le copie bien dans l'onglet "selected" mais ça ne m ajoute pas le S/N qui lui correspond
Est ce que l'un(e) d'entre vous pourrait m'aider
Merci d'avance

 

[pierrejean]

Re : Double clic : copie colle

bnjour choupi_nette

vois si cela te convient

 

[phlaurent55]

Re : Double clic : copie colle

Bonjour Choupi_nette

avec ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 1 Then Exit Sub
    If Target.Count <> 1 Then Exit Sub
    
    Target.Copy Sheets("Selected").Range("A65000").End(xlUp).Offset(1, 0)
    Target.Offset(0, 1).Copy Sheets("Selected").Range("B65000").End(xlUp).Offset(1, 0)
  Cancel = True
    
End Sub

à+
Philippe

Édit: Bonjour PierreJean

 

[Hulk]

Re : Double clic : copie colle

Slt Choupinette, Forum,

Ajoute cette ligne avant le Cancel = True...

    Target.Offset(0, 1).Copy Sheets("Selected").Range("A65000").End(xlUp).Offset(0, 1)

EDIT : Bonjour messieurs, collision !

 

[JNP]

Re : Double clic : copie colle

Bonjour le fil 🙂,
Au plus court

Target.Resize(, 2).Copy

Bonne suite 😎

 

[choupi_nette]

Re : Double clic : copie colle

Merci a tous pour votre aide...
Ca fonctionne bien
Bonne journée