Discussion :

[dado91400]

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 ...
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 :

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

[cwain]

Salut à toi,

j'ai un peu modifié ton code pour avoir un truc qui marche (chez moi en tout cas )
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 :

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