Clic cellule sélection intervalle + copie

Bonjour à tous!!

Voila mon problème! Je suis à la recherche d'une macro qui me permettrait,suite à un clic de souris sur une cellule spécifique, la sélection des cellules d'à côté (4-5 cellules) et la copie dans une feuille N°2.

Je vous mets en pièce jointe un tableau explicatif pour être plus clair!!

MERCI D'AVANCE POUR VOTRE AIDE!!

j'ignore comment le faire reagir a la selection d'une cellule, mais j't'ai fait le reste

Bonjour,

Voir exemple de réalisation avec clic-droit dans cellule colonne G.

ALT F11 et voir module dans Feuil1.

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim wsd As Worksheet
Dim lngRow As Long
    If Not Application.Intersect(Target, Range("G2:G23")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Set wsd = Worksheets("Feuil2")
        lngRow = wsd.Range("A" & Rows.Count).End(xlUp).Row + 1
        MsgBox lngRow
        Range(Target.Offset(0, -6), Target.Offset(0, -1)).Copy Destination:=wsd.Cells(lngRow, 1)
    End If
    Set wsd = Nothing
End Sub

Jean-Eric,

j'aurais quelques questions:

déja, 2 if et un seul end if... le if not ne neccesite pas de end if?

Application.Intersect(Target, Range("G2:G23"))

si je veux le faire reagir sur la ligne 1de A a C, ca deviens "Application.Intersect(Target, Range("A1:C1"))"?

Bonjour tout le monde.

Je met ma petite contribution également

Cdlt.

ET BIEN..... que dire!! si ce n'est UN GRAND MERCI à tous pour votre contribution!!

Parfait, je vais me servir de tous vos fichiers pour mettre le mien au goût du jour^^

Je vais pouvoir continuer mon fichier!!

ENCORE UN GRAND MERCI A VOUS

Bonne journée..

Re,

c'est

If Target.Count > 1 Then Exit Sub

qui n'a pas besoin de 'End if'

Pour la 2 question, c'est effectivement cela.

Cdlt.

Ok merci