Discussion :

[lolove94]

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

[grrimag]

Salut,

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

Code :

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

1
2
 
toto=Listbox1.value

et ensuite, tu fais ce dont tu as besoin avec genre:

Code :

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

1
2
3
4
 
toto=Listbox1.value
titi=Listbox2.value
range("A1").value=toto+titi

Voila, hésite-pas si autre problème

[lolove94]

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

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

[lolove94]

merkiii grrimag,

j'essaie de suite

merci bcp

[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

[jfontaine]

Peut etre que ca t'aidera


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

Code :

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

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