Private Sub LstProduit_Click()
With LstProduit
NomPatisserie = .List(.ListIndex, 0)
PrixAchat = LookupV(.Column(0), [BDProduit], 2)
CBFamille = LookupV(.Column(0), [BDProduit], 3)
CoeffFamille = LookupV(.Column(0), [BDProduit], 4)
CBTvaAcheteRevendu = LookupV(.Column(0), [BDProduit], 5)
End With
End Sub
Function LookupV(What, Target, Idx)
On Error Resume Next
LookupV = WorksheetFunction.VLookup(What, Target, Idx, False)
If Err Then LookupV = "": Err.Clear
End Function