Discussion :

[greg26]

Bonjour à tous
Voila je suis entrain de faire un logiciel pour faire des devis automatique en VB.
J'ai fais un bon bout de code (avec des calculs) pour arriver à une variable que j'ai nommé PuissanceRetenue. (String)
J'ai une combobox intitulée ChoixMachine.
Je souhaiterais en fonction du résultat de ma variable PuissanceRetenue afficher des items (qui sont dans un tableau de 20 cases que j'ai codé avant "ModeleMachine") dans ma combobox mais j'y arrive pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 Select Case PuissanceRetenue
 
            Case "7.3"
 
                ChoixMachine.Items.Add((ModeleMachine(0))
                ChoixMachine.Items.Add((ModeleMachine(1))
 
            Case "8.95"
 
                ChoixMachine.Items.Add(ModeleMachine(2))
                ChoixMachine.Items.Add(ModeleMachine(3))
                ChoixMachine.Items.Add(ModeleMachine(4))
                ChoixMachine.Items.Add(ModeleMachine(5))
 
 
            Case "9.6"
 
                ChoixMachine.Items.Add( ModeleMachine(10))
                ChoixMachine.Items.Add(ModeleMachine(11))
 
            Case "12"
 
                ChoixMachine.Items.Add(ModeleMachine(12))
                ChoixMachine.Items.Add(ModeleMachine(14))
                ChoixMachine.Items.Add(ModeleMachine(15))
 
 
            Case "12.1"
 
                ChoixMachine.Items.Add(ModeleMachine(6))
                ChoixMachine.Items.Add(ModeleMachine(7))
 
            Case "12.2"
 
                ChoixMachine.Items.Add(ModeleMachine(13))
 
            Case "15.9"
 
                ChoixMachine.Items.Add(ModeleMachine(16))
                ChoixMachine.Items.Add(ModeleMachine(17))
 
            Case "16.1"
 
                ChoixMachine.Items.Add(ModeleMachine(8))
                ChoixMachine.Items.Add(ModeleMachine(9))
 
            Case "20.8"
 
                ChoixMachine.Items.Add(ModeleMachine(18))
                ChoixMachine.Items.Add(ModeleMachine(19))
 
        End Select

mercid 'avance à ceux qui m'aideront

[SaumonAgile]

Et qu'est ce qui ne fonctionne pas ?

[greg26]

salut
dans ma combobox j'ai rien qui s'affiche
merci

[SaumonAgile]

Tu as vérifié qu'il passe bien dans ton code ? C'est une appli Web ou WinForms ?

[greg26]

Je me suis corrigé c'est bon il fallait enlevé les "" à chaque case (j'ai utilisé le débuggeur pas à pas), pourtant je pensais qu'il en fallait comme c'était de type string (j'ai mis en string pour pas avoir de problèmes entre les , et les . )
merci de ton aide, c'est vrai que j'y pense pas trop à utiliser le débuggeur