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