Bonjour

voilà j'ai un projet d'application excel sur vba à faire et je n'y arrive pas...
Mon problème est que j'ai besoin de faire un tableau dans une combobox. Suivant le choix de la combobox1 faire apparaître différents tableaux dans
la combobox 2 . Voici le code je ne comprend pas pourquoi cela fonctionne pas.

Merci infiniment.

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
Private Sub UserForm1_Initialize()
 
Dim i As Integer
i = 1
If ComboBox1 = "Ensemble 1" Then
 
ComboBox2.AddItem Worksheets("Feuil5").Cells(i, 2) <> ""
Else
ComboBox2.Value = ""
If ComboBox1 = "Ensemble 2" Then
ComboBox2.AddItem Worksheets("Feuil5").Cells(i, 4) <> ""
Else
ComboBox2.Value = ""
If ComboBox1 = "Ensemble 3" Then
ComboBox2.AddItem Worksheets("Feuil5").Cells(i, 6) <> ""
Else
ComboBox2.Value = ""
End If
End If
End If
 
i = 1 + i
 
 
Do While Worksheets("Feuil5").Cells(i, 1) <> ""
ComboBox1.AddItem Worksheets("Feuil5").calls(i, 1)
i = i + 1
 
Loop
 
End Sub
 
Private Sub CommandButton1_Click()
UserForm1.Hide
 
MsgBox "êtes vous sur?", vbYesNo, "?"
ComboBox1.Value = ""
ComboBox2.Value = ""
 
If vbNo Then
UserForm1.Show
ComboBox1.Value = ""
ComboBox2.Value = ""
Else
 
End If
 
End Sub
 
Private Sub CommandButton2_Click()
UserForm1.Hide
Form1.Show
 
End Sub