[excel2007] calcul sur listbox multicolonnes
Résolu
ced3c
Messages postés
240
Statut
Membre
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Petit renseignement svp
Peut on effectuer des calculs dans une listbox ?
Je m'explique par l'exemple
J'ai une listbox de 8 colonnes que je remplie par additem
les colonnes 4 et 5 indiquent respectivement un prix et une quantité
J'aimerais inserer si possible dans la colonne 6 un calcul de TVA
soit
prix * 19.6% * quantité (col4 * 19.6% * col5)
voici le code que j'ai actuellement pour remplir les 5 premières colonnes de ma listbox via un bouton de commande
Si cela est possible comment dois je m'y prendre pour faire le calcul de la 6eme colonne ?
(la 7eme et 8eme colonnes seront sur le même principe soit montantHT et MontantTTC )
Merci d'avance :)
Petit renseignement svp
Peut on effectuer des calculs dans une listbox ?
Je m'explique par l'exemple
J'ai une listbox de 8 colonnes que je remplie par additem
les colonnes 4 et 5 indiquent respectivement un prix et une quantité
J'aimerais inserer si possible dans la colonne 6 un calcul de TVA
soit
prix * 19.6% * quantité (col4 * 19.6% * col5)
voici le code que j'ai actuellement pour remplir les 5 premières colonnes de ma listbox via un bouton de commande
ExtraitVente.AddItem ComboBox2.Value ExtraitVente.List(ExtraitVente.ListCount - 1, 1) = TextBox1.Value ExtraitVente.List(ExtraitVente.ListCount - 1, 2) = TextBox2.Value ExtraitVente.List(ExtraitVente.ListCount - 1, 3) = ComboBox3.Value ExtraitVente.List(ExtraitVente.ListCount - 1, 4) = TextBox3.Value
Si cela est possible comment dois je m'y prendre pour faire le calcul de la 6eme colonne ?
(la 7eme et 8eme colonnes seront sur le même principe soit montantHT et MontantTTC )
Merci d'avance :)
11 réponses
-
Bonjour,
Au passage, si [prix] en TextBox4 et [quantité] en textBox5 alors :ExtraitVente.List(ExtraitVente.ListCount - 1, 6) = (TextBox4.Value* TextBox5.Value)
Salutations.
Le Pingou -
Merci pour ta reponse Le Pingou
Cette facon de faire m'indique une réponsequi n'est pas la bonne
quand par exemple je dois trouver 503 il m'indique 513412,4195
Ce que je n'ai pas préciser et qui à peut être de l'importance est le fait que j'inscris plusieurs ligne dans ce listbox
Je joint le fichier pour être plus clair
https://www.cjoint.com/?0Lfw1JksXCc
il faut remplir le formulaire en haut à gauche sur le userform à l'ouverture et ajouter -
Bonjour,
Rapidement, le prix est dans la [Combobox3] et la quantité en [Textbox3] ; dans se cas ligne devient :ExtraitVente.List(ExtraitVente.ListCount - 1, 5) = (Me.ComboBox3.Value * Me.TextBox3.Value)
Bonne nuit.
Salutations.
Le Pingou -
pardon c'est moi qui m'étais trompé
Ca marche niquel, merci beaucoup
J'aurai une autre question si possible
Comment faire pour avoir la somme des valeurs de la colonne 6 de la listbox ?
Merci-
J'ai trouvé sur le net
Private Sub CommandButton1_Click() Dim i As Byte Dim cible As Integer Dim Resultat As Double cible = ExtraitVente.ListCount For i = 1 To cible Resultat = Resultat + ExtraitVente.List(i - 1, 7) Next MsgBox Resultat End Sub
mais je ne sais pas comment faire pour qu'il renvoie la valeur automatiquement dans le textbox6 a la place du msgbox
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Est-il possible de savoir à quel moment vous avez besoin de ce total ?
-
j'aimerai que ce résultat se mette a jour des que je valide une entrée dans la listbox afin d'avoir toujours le total à jour.
c'est pour cela que je pensais le faire dans le bouton de commande qui ajoute les ligne dans la listbox. -
Bonjour,
Que faut-il comprendre par : dès que je valide une entrée dans la listbox ?
Quelque chose est étrange, car la [TextBox6] de votre formulaire contient la somme des montants de la colonne [H2 :H98] de la feuille [traitement].
Est-vous sur de votre choix ?
Salutations.
Le Pingou -
Ce sont d'anciennes valeurs que je n'ai pas enlever sur le lien que j'ai mis
A l'heure actuelle la textbox6 n'indique rien
Je souhaiterais que cette case indique la somme de la derniere colonne, celle des montants ttc -
Bonjour,
Dans ce cas, il suffit d'ajouter cette ligne à la suite du code que j'ai fourni hier :Me.TextBox6 = Me.TextBox6 + (Me.ComboBox3.Value * Me.TextBox3.Value)
Remarque: vous dites que se sont d'anciennes valeurs, oui d'accord mais les code de procédure sont dans ce cas incorrects, pour une partie.
-
merci beaucoup cela marche très bien :)
je te relink le modèle si jamais tu veux voir
https://www.cjoint.com/?3LgsRuseTK4
il est vrai que mon code doit être "bordélique " pour un habitué du vba mais vu mes piètres capacités dans ce domaine je fais du brik à brak avec des bouts de codes trouvé par ci par la.
Heureusement que j'ai l'aide de personne comme toi pour m'aider et m'orienter :)
Merci beaucoup pour ton aide -
Bonjour,
Merci pour l'information.
