"ComboBox" -- Mise en forme et déclaration de valeurRésolu

Question

Bonjour,


Apr&#232;s plusieurs testes, je ne suis pas arriv&#233; &#224; faire fonctionner la "ComboBox".  (je sais, je suis Dob&#233; )Voil&#224; le probl&#232;me:


   J'aimerais pouvoir selectionner dans la ComboBox une valeur pr&#233;d&#233;fini pour simplifier un calcul. Par exemple je voudrais que dans la liste de la ComboBox apparaissent diff&#233;rentes donn&#233;es dans le genre:
Test1 
Test2
Test3
   Et pr&#233;d&#233;finir dans le code une valeure diff&#233;rente  ex : 0,00765 / 0,00349 / 0.485 ....(valeurs qui n'apparaissent pas durant l'execution du programme).


   Voil&#224; le petit bout de code que j'aimerais pouvoir faire fonctionner avec cette comboBox. Je ne sais vraiment pas comment alouer une valeur et cr&#233;er une liste avec cette derni&#232;re...


 


Private Sub Combo1_Change()
???
End Sub


Private Sub Command1_Click()
On Error Resume Next
Text1.Text = Val(Text1.Text)


If Text1.Text = 0 Then
MsgBox "Entrez une valeur dans chaques cases"
Else: Label1.Caption = "la r&#233;ponse est " & Round(Text1.Text / 3600 / "donn&#233;e contenue dans la ComboBox", 8) & ""
End If


End Sub



   J'esp&#232;re que vous pourrez encore une fois m'aider dans mon apprentissage du VB6 et vous remercie d'avance pour votre aide pr&#233;cieuse,

cs_chapata · Accepted Answer

Hi,

tu fais dans ton UserForm_Initialize()

combobox1.additem "Test 1"
combobox1.additem "Test 2"
combobox1.additem "Test 3"

end sub

je suppose que ta command est un bouton valider (?) alors ...


Private Sub Command1_Click()
dim MaValeur as Integer
if combobox1.value = "Test 1" then
   MaValeur = 0,00765
elseif combobox1.value = "Test 2" then
   MaValeur = 0,00349
elseif etc ... etc ....


Bon courage ...


ChaPaTa

cs_CanisLupus · Answer

Salut,

C'est tr&#232;s confus ton probl&#232;me.
Commence par voir la m&#233;thode 'Additem' de ta combo (pour la remplir).

Apr&#232;s, tu reviens pour le reste.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

tztr · Answer

Merci beaucoup  Chapata .

Le bout de code que tu as poster fonctionne parfaitement. Maintenant il ne me rester &#224; mettre &#231;a dans mon application. 
Mais je suis d&#233;j&#224; content que tu ais pu me faire comprendre comment cette "ComboBox" fonctionnait merci bien.

A bient&#244;t 

tztr

"ComboBox" --> Mise en forme et déclaration de valeur

3 réponses

Discussions similaires