C'est la première fois que j'utilise des combobox et je n'arrive pas à les faire fonctionner.

J'ai créer une zone de liste déroulante sur la feuille 1 d'un classeur. Par défaut je veux qu'il y ait 10 lignes dans cette liste avec des valeurs de 0 à 100 par pas de 10. Donc j'ai initialisé la combobox avec le code suivant (qui ne marche 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
Private Sub Userform_Initialize()
 
ComboBox1.AddItem "0"
ComboBox1.AddItem "10"
ComboBox1.AddItem "20"
ComboBox1.AddItem "30"
ComboBox1.AddItem "40"
ComboBox1.AddItem "50"
ComboBox1.AddItem "60"
ComboBox1.AddItem "70"
ComboBox1.AddItem "80"
ComboBox1.AddItem "90"
ComboBox1.AddItem "100"
 
End Sub
Ensuite je veux écrire dans des cellules à côté de la zone de liste déroulante, des valeurs issues d'un tableau calculé dans un module. Donc je transfert la valeur issue de zone de liste déroulante par argument vers le module où j'ai calculé le tableau dont je veux copier les valeur dans la feuille à côté de la zone de liste déroulante.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub ComboBox1_Change()
    Indchoice = ComboBox1.Value
    Call Fonction2(Indchoice)
End Sub
Et enfin voici le code qui me permet d'écrite les données dans la feuille d'après la valeur de la zone de liste déroulante choisie.

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
53
54
55
56
57
58
59
60
61
Public Sub Fonction2(Indresume)
 
Select Case Indresume
Case 0
Feuil1.Cells(6, 9).Value = It1(0)
Feuil1.Cells(7, 9).Value = It2(0)
Feuil1.Cells(8, 9).Value = It3(0)
Feuil1.Cells(9, 9).Value = Icalc0(0)
Case 10
Feuil1.Cells(6, 9).Value = It1(1)
Feuil1.Cells(7, 9).Value = It2(1)
Feuil1.Cells(8, 9).Value = It3(1)
Feuil1.Cells(9, 9).Value = Icalc1(0)
Case 20
Feuil1.Cells(6, 9).Value = It1(2)
Feuil1.Cells(7, 9).Value = It2(2)
Feuil1.Cells(8, 9).Value = It3(2)
Feuil1.Cells(9, 9).Value = Icalc2(0)
Case 30
Feuil1.Cells(6, 9).Value = It1(3)
Feuil1.Cells(7, 9).Value = It2(3)
Feuil1.Cells(8, 9).Value = It3(3)
Feuil1.Cells(9, 9).Value = Icalc3(0)
Case 40
Feuil1.Cells(6, 9).Value = It1(4)
Feuil1.Cells(7, 9).Value = It2(4)
Feuil1.Cells(8, 9).Value = It3(4)
Feuil1.Cells(9, 9).Value = Icalc4(0)
Case 50
Feuil1.Cells(6, 9).Value = It1(5)
Feuil1.Cells(7, 9).Value = It2(5)
Feuil1.Cells(8, 9).Value = It3(5)
Feuil1.Cells(9, 9).Value = Icalc5(0)
Case 60
Feuil1.Cells(6, 9).Value = It1(6)
Feuil1.Cells(7, 9).Value = It2(6)
Feuil1.Cells(8, 9).Value = It3(6)
Feuil1.Cells(9, 9).Value = Icalc6(0)
Case 70
Feuil1.Cells(6, 9).Value = It1(7)
Feuil1.Cells(7, 9).Value = It2(7)
Feuil1.Cells(8, 9).Value = It3(7)
Feuil1.Cells(9, 9).Value = Icalc7(0)
Case 80
Feuil1.Cells(6, 9).Value = It1(8)
Feuil1.Cells(7, 9).Value = It2(8)
Feuil1.Cells(8, 9).Value = It3(8)
Feuil1.Cells(9, 9).Value = Icalc8(0)
Case 90
Feuil1.Cells(6, 9).Value = It1(9)
Feuil1.Cells(7, 9).Value = It2(9)
Feuil1.Cells(8, 9).Value = It3(9)
Feuil1.Cells(9, 9).Value = Icalc9(0)
Case 100
Feuil1.Cells(6, 9).Value = It1(10)
Feuil1.Cells(7, 9).Value = It2(10)
Feuil1.Cells(8, 9).Value = It3(10)
Feuil1.Cells(9, 9).Value = Icalc10(0)
End Select
 
End Sub
J'ai l'impression que ça devrait marcher, je vois pas de difficultés particulières, j'ai pas de message d'erreur.... Mais ça ne marche pas
La zone de liste déroulante ne contient aucune valeur et aucune fonction n'est lancée quand je "touche" la listé déroulante, même quand je met "click" plutôt que "change" pour lancer le code de la combobox.