Private Sub Recherche_Change()
Me.enreg = Application.Match(Val(Me.Recherche), [produits[id]], 0)
Me.Id = Me.Recherche
Me.Nom = [produits].Item(enreg, 2)
Me.FamilleF = [produits].Item(enreg, 3)
Me.SFamilleF = [produits].Item(enreg, 4)
Me.UniteF = [produits].Item(enreg, 5)
Me.PrixAchat = [produits].Item(enreg, 6)
Me.Perte = [produits].Item(enreg, 7)
Me.Perte = IIf(Me.Perte = "", 0, Me.Perte)
'Me.PrixNet = [produits].Item(enreg, 8)
Me.PrixNet = CDbl(Me.PrixAchat) * (1 + CDbl(Me.Perte) / 100)
Me.Remarques = [produits].Item(enreg, 9)
End Sub