Discussion :

[zidane22]

Bonjour à tous
Est t-il possible de faire des calculs sur les items d'un combobx?
Mon application consiste à faire entrer un chiffre dans un text1 puis entrer un autre chiffre dans un combobx et le resultat de soustraction s'affiche dans text2.
Les donnees sont stoqués dans une base de donnees access biensur et à chaque fois que je rentre un nouveau chiffre dans combobox le resultats change dans text2.
Illustration:
text2 = combo1.item1 - combo1.item2 - combo1.item3....jusqu'a 5 items.
J'éspére pouvoir transmettre mon souci.
Merci d'avance.

[ProgElecT]

Salut

text2 = combo1.item1 - combo1.item2 - combo1.item3....jusqu'a 5 items.

un ComboBox n'a pas de propriété Item

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Calcul As Integer, T As Integer
Calcul = Val(text1.Text)
For T = 0 To 4
    Calcul = Calcul - combo1.List(T)
Next T
text2.Text = CStr(Calcul)

[zidane22]

merci infiniment ProgElecT
Vous etes tres gentil

[zidane22]

Excusez moi ProgElecT
Je reçois un message d'érreur (type mismatch)dans cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Calcul = Calcul - Combo1.List(T)

[ProgElecT]

Salut
Le fait est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Calcul = Calcul - Val(Combo1.List(T))

[zidane22]

Merci beaucoup ProgElecT
Vous etes un homme trés généreux
Croyez moi aprés 2 jours de recherche sur le web , je pensais que c'ést impossible de trouver un tel code.
Juste une petite question:
Est qu'il est possible de stoquer les combo items dans une base de données access car j'ai fouillé partout mais j'ai pas trouvé.
Autre chose je mets le code que vous m'avez donné dans combo1.change event , je remarque que si je supprime un item, le résultat dans text2 ne change pas.
Un dernier souci est que je veux que lorsque le nombre des item s'boutent à 4 on ne peut pas ajouter des items de plus.
j'ai mis ce code mais ça n'a pas marché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Combo1.ListCount = 4 Then
Exit Sub
End If

Merci