problème de listbox

Version imprimable

28/08/2007, 14h25
lolove94

problème de listbox

bonjour à tous,

j'aimerais vous solliciter pour résoudre un p'tit prob...

je suis novice et je viens de découvrir depuis peu vba...

alors voici mon souci:

j'ai une première listbox ou figure une famille d'objets...
une fois le choix effectué on peut choisir dans une seconde listbox les caractérisques de l'objet...jusque ici ça tourne bien

je voudrais maintenant pouvoir en fonction du choix effectué afficher un message dans une celulle, mais je ne sais pas comment procéder...

je vous remercie par avance de votre aide

tcho :P
28/08/2007, 14h44
grrimag
Salut,

tu peux récupérer la valeur sélectionnée par la propriété value de la listbox:
Code:

1 2 toto=Listbox1.value
et ensuite, tu fais ce dont tu as besoin avec genre:
Code:

1 2 3 4 toto=Listbox1.value titi=Listbox2.value range("A1").value=toto+titi
Voila, hésite-pas si autre problème

voici le prog vba...en espérant de l'aide SVP....

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
Private Sub CommandButton1_Click()
    UserForm_Initialize
End Sub
Private Sub UserForm_suite()
    If ListBox1.List(ListBox1.ListIndex) = "TA 2" Then
        ListBox2.AddItem "TA 260"
        ListBox2.AddItem "TA 283"
        ListBox2.AddItem "TA 287"
    End If
    If ListBox1.List(ListBox1.ListIndex) = "TA 3" Then
        ListBox2.AddItem "TA 364"
        ListBox2.AddItem "TA 370"
        ListBox2.AddItem "TA 370 M"
        ListBox2.AddItem "TA 373 H"
        ListBox2.AddItem "TA 374 H"
        ListBox2.AddItem "TA 378"
        ListBox2.AddItem "TA 379"
        ListBox2.AddItem "TA 381"
    End If
    If ListBox1.List(ListBox1.ListIndex) = "TA 4" Then
        ListBox2.AddItem "TA 460"
    End If
    If ListBox1.List(ListBox1.ListIndex) = "VMW" Then
        ListBox2.AddItem "TA 497"
    End If
    If ListBox1.List(ListBox1.ListIndex) = "TA L" Then
        ListBox2.AddItem "TAL 460"
        ListBox2.AddItem "TAL 488 H"
        ListBox2.AddItem "TAL 498 H"
        ListBox2.AddItem "TALT 489"
        ListBox2.AddItem "TALT 8000"
        ListBox2.AddItem "TALT 891"
    End If
End Sub
Private Sub ListBox1_Click()
    ListBox2.Clear
    UserForm_suite
End Sub

dois-je insérer un outils supplémentaires par exemple une zone de résultats?

merci d'avance

28/08/2007, 14h55
lolove94

merkiii grrimag,

j'essaie de suite

merci bcp :P
28/08/2007, 14h58
lolove94

euuuuuuuuuuuuuhhhhh j'avoue ne pas trop comprendre ou insérer tes lignes de codes....

je suis Dsolé

alors je vais essayer d'être plus clair:

j'ai une liaison entre 2 list box et je voudrais pouvoir afficher dans une textbox ou autre chose, un texte

merci d'avance
28/08/2007, 20h40
jfontaine
Peut etre que ca t'aidera

Pour que la textbox contienne la valeur sélectionnée dans la listbox 2
Code:

1 2 3 4 Private Sub ListBox2_Click() Textbox1.Text=ListBox2.Text End Sub