Discussion :

[lou87]

Bonjour !

J'affiche certaine données dans un combobox (cellule esclave) à partir d'une autre cellule combobox (je vais l'apellez cellule maître), jusque là tout fonctionne...

Mais le problème c'est que la liste de données ne se vide pas, bien que j'ai essayer de le réinitialiser à chaque fois que je change de donnée dans la cellule maître.... Donc cela fait que les données s'ajoute les unes aux autres mélangeant ainsi les données, tout en faussant la cellule esclave...

(Je débute un peu dans ce langage)

ex : je clic sur la liste déroulante de la cellule maître nommé type puis sur ARBRE
donc dans la cellule esclave il a donc tout les type d'ARBRE
Puis je reviens sur la cellule maître et je clic sur FLEUR, et dans la cellule esclave je me retrouve avec le type ARBRE et le type FLEUR, alors que normalement je ne devrais qu'y retrouver uniquement le type FLEUR

[m-mas]

il faut utiliser la propriété clear de ta combo escalve ensuite la remplir de nouveau.
fait voir le code.

[lou87]

Le voila le code, mais j'ai enlevé les expressions... (disons que je bosse pour une entreprise...)

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
If listder_type_incident.SelectedItem = "*" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "**" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "***" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "****" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "*****" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "******" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "*******" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "********" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
        ElseIf listder_type_incident.SelectedItem = "*********" Then
            Me.listder_classif1.Text = ""
            Me.listder_classif1.Items.AddRange(New Object() {"expression"})
End If

* c'est ce qui se trouve dans la cellule maître

[HULK]

juste avant ton code ou tu rempli ta combobox esclave, tu ajoute cette ligne :

Code :

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

1
2
 
comboboxesclave.items.clear()

[lou87]

Merci beaucoup

Ca marche maintenant ^^