[VBA-E] 2 ListBox avec valeurs "dépendantes l'une de l'autre"

salut à tous!

je débute en VB et je me heurte à mes premiers beug...
soyez indulgent, je suis novice... comme on dit c'est en boxant qu'on devient boxeur ...:lol:
Je souhaiterais un petit coup de main, pour le problem suivant :

j'ai un USERFORM avec (x2) ListBox.
ListBox1 me permet de selectionner une catégorie de dépense.
ListBox2, le détail de la catégorie.
Autrement dit la valeur de ListBox1 influenceras le contenu de ListBox2, selon le tableau ci-dessous.


DEPENSE ADMIN POLO SLK PERSO
ADMIN IMPOT GASOIL ESSENCE KDO
POLO CREDIT LAVAGE LAVAGE VETEMENT
SLK ASSURANCE AMENDE AMENDE BOUFFE
PERSO ENTRETIEN

voici mon code, pourquoi je n'arrive pas à afficher ListBox2 en fonction de ListBox1????

merci pour vos lumieres :

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

Private Sub UserForm_Initialize()   Dim CategorieDepense As String Dim DetailDepense As String   'on défini la plage de donnés à mettre dans ListBox1 (feuil1, plage A2:A10) ListBox1.ColumnHeads = True ListBox1.RowSource = "Feuil1!A2: A10"     ListBox1.Value = CategorieDepense ListBox2.Value = DetailDepense   Select Case CategorieDepense   Case "ADMIN" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!C2: C16"   Case "POLO" CListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!D2: D16"   Case "SLK" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!E2: E16"   Case "PERSO" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!F2: F16"   End Select   Range("B1") = CategorieDepense   End Sub Private Sub CommandButton1_Click()   Feuil1.Range("A15") = ListBox1.Value Feuil1.Range("B15") = ListBox2.Value Feuil1.Activate   End Sub

---

Salut à toi,

j'ai un peu modifié ton code pour avoir un truc qui marche (chez moi en tout cas :mouarf: )
2 trucs en particulier :
- le categoriedepense du mauvais côté du signe égal
- séparer le code en évènement listbox1_change, de manière à changer le contenu de ta listbox 2 en fonction du contenu de ta listbox1

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

Private Sub ListBox1_Change() CategorieDepense = ListBox1.Text Select Case CategorieDepense   Case "ADMIN" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!C2: C16"   Case "POLO" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!D2: D16"   Case "SLK" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!E2: E16"   Case "PERSO" ListBox2.ColumnHeads = True ListBox2.RowSource = "Feuil1!F2: F16"   End Select   Range("B1") = CategorieDepense End Sub Private Sub UserForm_Initialize()   Dim CategorieDepense As String Dim DetailDepense As String   'on défini la plage de donnés à mettre dans ListBox1 (feuil1, plage A2:A10) ListBox1.ColumnHeads = True ListBox1.RowSource = "Feuil1!A2: A10" End Sub Private Sub CommandButton1_Click()   Feuil1.Range("A15") = ListBox1.Value Feuil1.Range("B15") = ListBox2.Value UserForm1.Hide Feuil1.Activate   End Sub

---

J'espère que ça va t'aider

Cwain