Discussion :

[clemence987]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.
L'atelier du vin2.xlsm
En vous remerciant par avance.

[antonysansh]

Bonjour clemence987,

Si tu as plusieurs Userforms, vérifie que tu mets le _initialize sur le bon UF. De plus je te conseil de renommer t'es UF pour leurs donner des noms plus pertinents.
Tu peux aussi mettre le nom de l'UF concerné devant le nom du contrôle sur lequel tu veux agir
Par exemple : MonUF.MonComboBox.AddItem "Rouge"

[Philippe Tulliez]

Bonjour,

Pourtant quand, on insère les programmes dans notre projet ceux-ci ne fonctionnent pas.

Qu'est-ce qui ne fonctionne pas ?
Une erreur du programme ?
Dans ce cas, il est important de préciser son message, le numéro de l'erreur et à quelle ligne.
Le ComboBox n'affiche aucun élément ?
Il faudrait être plus précis

En tous les cas, je relève déjà un souci. Quel que soit le nom du formulaire la procédure événementielle d'initialisation doit se nommer Private Sub UserForm_Initialize()
Donc cette procédure est incorrecte Private Sub UserForm1_initialize()

[clemence987]

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 :

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
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 !