1 pièce(s) jointe(s)
Projet excel VBA Formulaire combobox
Salut les gars !
Nous effectuons un projet VBA de création de formulaire. Nous rencontrons quelques difficultés lors du codage de notre formulaire. Après de nombreuses recherches et demande d'aide, notre problème persiste...
Nous créons un "site" de vente de vin, ou nous pouvons être soit client, acheter du vin selon ses caractéristiques, soit viticulteur où nous pouvons proposer du vin à la vente.
Nous avons déjà créé 2 formulaires qui fonctionnent parfaitement ( accès au site soit en tant que client ou vendeur/ connexion ou enregistrement sur le site grâce a ses identifiants). Notre 3ième formulaire est un formulaire de recherche pour le client en fonction de la robe, du type, de la région, du millésime, du prix, et par plats. Malgré, les multiples essais avec tous les codes possibles, nos combobox de recherche ne se remplissent pas (combobox sans doublon évidemment).
Nous avons repris les exercices fait en cours, ils fonctionnent bien. Pourtant quand, on insère les programmes dans notre projet ceux-ci ne fonctionnent pas.
Même le programme suivant ne fonctionne pas :
Code:
1
2
3
4
5
6
7
| Private Sub UserForm1_initialize()
ComboBox1.AddItem "Rouge"
ComboBox1.AddItem "Rosé"
ComboBox1.AddItem "Blanc"
End Sub |
Pouvez-vous nous aider à trouver ce qui ne marche ?
Veuillez trouver ci-joint le fichier Excel comprenant nos userform,nos codes et notre base de données.
Pièce jointe 172745
En vous remerciant par avance.
Scrollbar+ combobox imbriquée
Re-bonjour !
Tout d'abord merci beaucoup, mon problème de remplissage des combobox est résolue ( cétait bien du au UserForm3_initialize) malheureusement je fais face à de nouveaux soucis ...
1) je voudrais utiliser une scrollbar pour que le client puisse choisir son vin en fonction d'un intervalle de prix (de 0 à 300EUR par exemple). Je n'ai appris a utiliser une scrollbar et je suis perdue face à la montagne de forum sur le sujet ...
2) Je voudrais faire des combobox imbriquées, c-a-d que si le client choisis "rouge" dans la première combobox alors la deuxième s'actualise en fonction du type ( sec, moelleux, effervescent) et ainsi de suite pour toutes les couleurs de robe.
J'ai écrit ce programme qui ne fonctionne pas ...:
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
| Private Sub ComboBox1_change()
Dim L As Integer
L = 2
'modifier le type en fonction de la robe'
If ComboBox1.Text = "rouge" Then
While Cells(L, 1) = "rouge"
ComboBox2 = Cells(L, 3)
If ComboBox2.ListIndex = -1 Then
ComboBox2.AddItem Cells(L, 3)
End If
L = L + 1
Wend
End If
L = 2
If ComboBox1.Text = "blanc" Then
While Cells(L, 1) = "blanc"
ComboBox2 = Cells(L, 3)
If ComboBox2.ListIndex = -1 Then
ComboBox2.AddItem Cells(L, 3)
End If
L = L + 1
Wend
End If
L = 2
If ComboBox1.Text = "rosé" Then
While Cells(L, 1) = "rosé"
ComboBox2 = Cells(L, 3)
If ComboBox2.ListIndex = -1 Then
ComboBox2.AddItem Cells(L, 3)
End If
L = L + 1
Wend
End If
End Sub |
Merci d'avance pour vos réponses et encore merci pour l'aide déjà apportée !:D
