Insertion depuis listbox1

Bonjour

J'ai un fichier avec 1 feuille DB qui contient un catalogue de produit et une feuille commande j'ai réussi à créer un formulaire de recherche et je voudrai que quand je double clique sur un article dans la listbox1 qu'il ajoute juste la référence du produit dans la feuille commande .

Merci

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier et on te fera ça !

Bye !

ça devrait faire l'affaire, non ?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    'ici on colle en cellule A1 la valeur recherché dans le tableau servant de rowsource à la listbox.

    Range("A1").Value = Application.WorksheetFunction.VLookup(ListBox1.Value, Sheets(ActiveSheet) _
        .Range(ListBox1.RowSource), 2, False)

End Sub

tu ajustes les paramètres en fonction de ton besoin. (feuille cible, range cible, ...)

bonjour

ci joint un fichier

merci

bonjour

jai fait ceci

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Worksheets("Sheet").Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = ListBox1

End Sub

sa fonctionne sauf qu'il me copie la référence + un espace donc se n'est pas bon ???

et je voudrais qui copie dans la cellule A si elle est égale à 0

merci beaucoup

Bonjour

Bonjour à tous

Un essai à tester.

Bye !

sa fonctionne parfait merci beaucoup