urgent projet vba

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:

---

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

---

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... ;) )

bonsoir

c'est vrais que pour le mot urgent est très mal choisi.:lol: 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 ?

Bonjour

As-tu au moins eu la curiosité de voir quelle type de valeur pouvait retourner une expression du genre

Code:

---

Worksheets("Feuil5").Cells(i, 4) <> ""

---

?
Tu devrais .

Si ça devrait marcher....alors...breakpoints...breakpoints...et débuggage ;)