[excel2007] calcul sur listbox multicolonnes

Résolu/Fermé
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 - 5 déc. 2011 à 20:10
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 - 6 déc. 2011 à 21:36
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

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 :)


A voir également:

11 réponses

Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
Modifié par Le Pingou le 5/12/2011 à 22:31
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
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
5 déc. 2011 à 22:55
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
0
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
Modifié par Le Pingou le 5/12/2011 à 23:45
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
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
6 déc. 2011 à 15:55
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
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
6 déc. 2011 à 16:11
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
0

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

Posez votre question
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
6 déc. 2011 à 16:53
Bonjour,
Est-il possible de savoir à quel moment vous avez besoin de ce total ?
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
Modifié par ced3c le 6/12/2011 à 16:57
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.
0
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
Modifié par Le Pingou le 6/12/2011 à 17:27
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
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
6 déc. 2011 à 17:36
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
0
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
6 déc. 2011 à 17:55
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.
0
ced3c Messages postés 237 Date d'inscription samedi 19 juillet 2008 Statut Membre Dernière intervention 28 mai 2016 5
6 déc. 2011 à 18:46
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
0
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
6 déc. 2011 à 21:36
Bonjour,
Merci pour l'information.
0