[Excel] Aide pour finaliser un projet

Résolu
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -  
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Afin de finaliser un projet que j'ai réalisé (en gros un petit logiciel de vente), j'aurai besoin de l'aide d'un "correcteur" pour m'aider à régler les derniers détails.
Je n'ai pas de connaissance en VBA donc le code est un peu "anarchique" du fait des différents bouts de code glaner ici et la.

2 problèmes se posent encore à moi

1 - Sur le userform de depart, quand je remplis le formulaire d'ajout d'article pour remplir ma listbox (en haut à gauche), les valeurs numériques que j'obtiens pour les divers prix sont exprimées de la manière suivante : 00.000
Je souhaiterais donc n'afficher que 2 chiffres après la virgule.

2 - Toujours dans ce formulaire quand je sélectionne l'article numéro 1 de chaque famille, j'obtiens un message d'erreur que je ne sais pas corriger.

Ce classeur est encore à travailler mais j'aimerai commencer à l'utiliser tel qu'il est maintenant en attendant de le peaufiner. Les autres userforms ne sont pas tous finis et sont en attentes, aussi ne pas en tenir compte.

Si quelqu'un pouvais m'aider je lui en serais très reconnaissant car je touche presque au but.

Voici le classeur : http://ww38.toofiles.com/fr/oip/documents/xlsm/test-copie.html
Désolé je n'arrive pas à aller sur le site de cjoint (The requested URL could not be retrieved)

MERCI D'AVANCE


PS: comme je vous l'ai dis, mon code est un peu anarchique, je n'ai pas encore les bons réflexes des commentaires explicatifs aussi je m'excuse ^^

A voir également:

5 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

ExtraitVente.List(ExtraitVente.ListCount - 1, 5) = Application.Round((Me.ComboBox3.Value * Me.TextBox3.Value * 0.196), 2) 
ExtraitVente.List(ExtraitVente.ListCount - 1, 6) = Application.Round((Me.ComboBox3.Value * Me.TextBox3.Value - (Me.ComboBox3.Value * Me.TextBox3.Value * 0.196)), 2) 
ExtraitVente.List(ExtraitVente.ListCount - 1, 7) = Application.Round((Me.ComboBox3.Value * Me.TextBox3.Value), 2)


attention à la correspondance des prix éventuelles dans les feuilles de calculs

pour avoir toujours 2 décimales (tu es alors en format texte )
Format(ExtraitVente.List(ExtraitVente.ListCount - 1, 5) = Application.Round((Me.ComboBox3.Value * Me.TextBox3.Value * 0.196), 2),"## ###,00") 


quant à la 2° question je laisse tomber
ton explication est très floue et ambigue: il a fallu + d'une 1:2 heure pour m'y retrouver ( la listbox en haut à gauche ah bon?, utilise les noms des userform et des controles... quand tu dis mon formulaire d'ajout: lequel est ce ?),; alors je n'ai pas envie de me prendre la t^te pendant des heures à essayer de traduire ce que tu veux... :o(

a part ca tu as fait du bon boulot si tu débutes ;o)
Michel
0
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
Merci pour votre reponse Michel_M et désolé pour l'explication hasardeuse
Je viens juste de rentrer aussi je n'ai pas encore essayer pour les décimales, je m'y met de suite après le message.

Pour la deuxième question
Avec le userform USF_Vente lorsque je sélectionne une famille de produit, référence, désignation, conditionnement, prix et quantité(combobox 1 à 3 et textbox 1 à 3), les informations récoltées sont envoyées vers la listbox Extrait_Vente

Le problème viens du fait de la sélection de la référence 1
En effet quand dans ce formulaire je choisi une famille (combobox1)et la première référence de cette famille (combobox2), j'obtiens un message d'erreur. Uniquement avec la première référence et ce avec toutes les familles de produit.

J'espère cette fois avoir été clair et je m'excuse encore pour mon premier post.

"a part ca tu as fait du bon boulot si tu débutes ;o) "
Merci :)
0
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
Je viens de voir pour les décimales , cela fonctionne à merveille , merci beaucoup :)

J'ai également essayer votre code pour avoir toujours 2 décimales

Format(ExtraitVente.List(ExtraitVente.ListCount - 1, 5) = Application.Round((Me.ComboBox3.Value * Me.TextBox3.Value * 0.196), 2),"## ###,00") 


mais il m'indique : "erreur de syntaxe"
L'aurais-je mal employé ou me manque t il un élément ?
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,
Effectivement !!!! excuses moi
ExtraitVente.List(ExtraitVente.ListCount - 1, 5) = Format(Application.Round((Me.ComboBox3.Value * Me.TextBox3.Value * 0.196), 2),"## ###,00") 
0
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
bonjour et merci pour la réponse :)
J'ai essayé cette nouvelle formule mais cela m'enlève les décimales
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ced3c Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   5
 
je vais essayer de chercher un peu plus par moi même

Merci pour tout :)
0