Microsoft 365 calcul dans Userform

[fosters]

Bonjour a tous

Je sollicite votre aide pour une problème de calcul dans un userform (fichier joint)

Je souhaiterais dans la TextBox PrixNet avoir le résultat du PrixAchat + le % Perte.

( PrixAchat 2,50€ + Perte 2% = 2,55 €)

est ce possible ou cela doit il ce faire dans le feuille Excel?

D’autre part comment est il possible d’afficher les symboles € et % dans les textbox correspondante ?

Merci pour vos retours

Bien cordialement

 

[vgendron]

Hello
pour le calcul. suffit de le faire

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.PrixNet = [produits].Item(enreg, 8)
  Me.PrixNet = Me.PrixAchat * (1 + Me.Perte / 100)
  Me.Remarques = [produits].Item(enreg, 9)
  
  
End Sub

 

[fosters]

Bonjour vgendron,

Merci pour votre retour, le code fonctionne jusqu'à la ligne 8, après ca affiche l'erreur suivante :

Erreur d'exécution 13
incompatibilité de type

 

[vgendron]

le code fonctionne jusqu'à ce que Perte ne soit pas défini

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

 

[fosters]

Vgendron

J ai testé le code ,cela fonctionne sur le userform mais apres validation le PrixNet ne s'affiche pas dans la feuille excel.
merci

 

[vgendron]

il faudrait que tu expliques un minimum de ce que tu veux faire avec ton formulaire..
lire ta base de données? modifier des infos? ajouter ??

 

[fosters]

En effet j’aurais dû commencer par ça à partir du formulaire je souhaiterais

Ajouter des infos, les modifier surtout au niveau des prix qui n’arrête pas d’augmenter.

Encore merci d’avoir pris le temps de regarder.

Cordialement

 

[vgendron]

Hello
Je reviens vers toi avec ton fichier en PJ
j'ai fait quelques modifs, au niveau des listes
il y a un tableau structuré "Famille" qui liste les familles possibles
ensuite, pour chaque famille, on fait un tableau structuré qui porte le meme nom et qui liste les sous familles

Pour une raison que j'ignore, ces sous familles doivent absolument avoir au moins 2 éléments pour que le userform ne plante pas.

 

[fosters]

Bonjour vgendron, le forum

Merci pour le fichier, ça fonctionne impeccable au-delà des deux sous famille qui ont besoins de deux éléments, j’ai remarqué que le fichier plante si on met un point au lieu de la virgule, ça doit venir de mon clavier, ce n’est pas vraiment bloquant pour moi.

Merci encore et bonne journée

Bien cordialement