Microsoft 365 calcul dans Userform

  • Initiateur de la discussion Initiateur de la discussion fosters
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fosters

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
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
Hello
pour le calcul. suffit de le faire
VB:
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
 
le code fonctionne jusqu'à ce que Perte ne soit pas défini

VB:
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
 
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
 
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.
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
151
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
224
Réponses
5
Affichages
382
Réponses
4
Affichages
137
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
289
Réponses
1
Affichages
385
Retour