Barre de recherche - copie/colle - sélection de colonne

Bonjour a vous,

J'ai mis en pratique le tableau de recherche (https://www.blog-excel.com/creer-un-champ-de-recherche-vba/) en pratique et jusque la tout va bien !

j'ai également mis en pratique le double clic, mais c'est la que mon problème arrive !

lorsque je double clic sur la ligne trouvée, (souligner en vert), cela "ramène" les informations de la ligne dans une autre feuille excel

et cela fonctionne avec cette ligne ci-apres :

Worksheets("Feuil1").Range("A3:I3").Value = Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Value

Mais je ne veux pas toute la ligne .......juste les informations des colonnes A, e, f et g (mis en bleu dans le fichier joint) qui seront copiés dans la feuill1 (placé dans les colonnes mis en bleu pour l'occasion).

et la prochaine recherche se copiera juste en dessus de l'autre et ainsi de suite...

Je joint le fichier exemple, une belle image vaut mieux que mille mots !

Merci encore du temps accordé a mon problème.

Fred

Bonjour,

Tu peux tester la macro suivante :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 2 Then Exit Sub
    Dim der As Long
    der = Feuil1.Cells(Application.Rows.Count, "D").End(xlUp).Row + 1

    With Worksheets("Feuil1")
        .Range("D" & der).Value = Range("B" & Target.Row).Value
        .Range("G" & der).Value = Range("E" & Target.Row).Value
        .Range("H" & der).Value = Range("F" & Target.Row).Value
        .Range("I" & der).Value = Range("G" & Target.Row).Value
    End With

    Cancel = True 'pour ne pas entrer en saisie dans la cellule

End Sub

J'espère que cela conviendra ...

Bonjour James007,

Merci tout d'abord du temps accordé !

j'ai une erreur d'exécution '1004':

la méthode 'range' de l'objet'_worksheet' a échoué

et semble bloqué sur la ligne :

Range("G" & der).Value = Range(Cells(Target.Row, 5)).Value

Re,

Il vaut mieux que tu reprennes la macro modifiée ... ci dessus ...

et pas l'instruction Range(Cells()) ...

J'espère que la macro fonctionne correctement ...

re !

toute mes excuses, je ne comprend pas ce que tu dit ?

ok !

erreur de ma part !

j'ai recopier ta macro et hop tout fonctionne nikel !

Merci encore et bonne journée !

ps : vraiment champion James007 ! 8)

Content que cela fonctionne ...

Merci pour tes remerciements ...