XL 2019 copier coller cellules en double cliquant sur cellul

[biboune]

bonjour,
je joins un fichier excel où mes demandes sont inscrites.
en gros, je voudrais copier des cellules d'une feuille à l'autre en double cliquant dessus et que les valeurs se mettent en colonne les unes à la suite des autres.
merci de votre aide.

 

[job75]

Bonjour biboune,

En gros voyez le fichier joint et cette macro dans le code de la 1ère feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B3:F5]) Is Nothing Then Exit Sub
Cancel = True
With Feuil2.[C3:C17]
    If Application.CountA(.Cells) = .Count Then MsgBox "La plage de destination est pleine...": Exit Sub
    .Find("", , xlValues, , , xlPrevious) = Target 'recherche la 1ère cellule vide
    .Sort .Cells(1), xlAscending, Header:=xlNo 'tri
    Target.Interior.ColorIndex = 6 'coloration facultative
End With
End Sub

A+

 

[M12]

Bonjour,
Un test

 

[biboune]

merci beaucoup à JOB75 et M12.

Les 2 solutions fonctionnent mais celle de JOB75 est plus simple.
c'est celle-là que je prends.
Encore merci à tous les 2.

 

[biboune]

en fait, j'ai voulu appliquer le code de job75 à un autre classeur(en changeant b3 par d3 et f5 par m11, mais je n'y arrive pas car il y a déjà un code dans la feuille 1 de "tirage" et çà bloque...

comment intégrer le code de "copie" sur "tirage" pour que les 2 instructions se fassent ?

voir fichiers joints

 

[M12]

Re,
Teste

 

[biboune]

merci M12 çà fonctionne super.

 

[biboune]

peut-être peux tu m'aider encore !...
je voudrais ajouter la feuille1 de"tirage1"(ainsi que les codes et macros associés ) dans mon classeur "cartons1".
merci d'avance