urgent projet vba

**Alexandre_M** · 27/05/2017, 15h00

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

**Pierre Fauconnier** · 27/05/2017, 16h05

Salut.

"Urgent" n'est pas l'approche idéale, surtout lorsque l'on est étudiant (et qu'on s'y est pris trop tard...)

...
Ne pas dire ce qui ne fonctionne pas dans le code n'est pas mieux.

Cela étant, quelques pistes:

découpe ton code en petits morceaux (fonctions) qui n'ont qu'une seule responsabilité;
mettre le code applicatif sur l'événement d'un bouton est rarement une bonne idée;
a priori, un userform est là pour saisir des données et les transmettre au code appelant, pas pour réaliser du code applicatif;
...

Bon travail et bon courage (et aussi bonne chance, cas si c'est pour lundi, avec un we pareil côté météo, l'activité sera réduite sur nos forums, je le crains...

)

**Alexandre_M** · 27/05/2017, 19h24

bonsoir

c'est vrais que pour le mot urgent est très mal choisi.

désolé

En fait ça fait depuis quelques semaines que je suis dessus et je désespère un peu ^^'. cela m'aide pas du tout
es ce que vous pourriez être un peu plus précis si vous plait ?