relation listbox/combobox

relation listbox/combobox - VB/VBA/VBS - Programmation

Marsh Posté le 25-04-2007 à 18:40:29    

Bonjour tout le monde,
 
Je suis en train de programmer sous VBA pour mon projet de fin d'études et j'ai un petit souci.
J'ai en fait dans mon userform une listbox ( 16 types d'ancrages) et une combobox (béton fissuré ou béton non fissuré).
J'aimerai que lorsque je selectionne une des deux possibilités dans ma combo que seules les types d'ancrages possibles restent comme possibilité.
Es ce possible?Si oui pourriez vous me donner un exemple de codage?
 
Merci d'avance pour vos réponses


Message édité par Mezou le 25-04-2007 à 18:41:30
Reply

Marsh Posté le 25-04-2007 à 18:40:29   

Reply

Marsh Posté le 26-04-2007 à 08:02:27    

Bonjour,
 
un exemple rapide ...
 
Private Sub ComboBox1_Change()
    ListBox1.Clear
    Select Case ComboBox1.Text
        Case "Béton fissuré":
            ListBox1.AddItem "Béton fissuré 1"
            ListBox1.AddItem "Béton fissuré 2"
            ListBox1.AddItem "Béton fissuré 3"
            ListBox1.AddItem "Béton fissuré 4"
        Case "Béton non fissuré":
            ListBox1.AddItem "Béton non fissuré 1"
            ListBox1.AddItem "Béton non fissuré 2"
            ListBox1.AddItem "Béton non fissuré 3"
            ListBox1.AddItem "Béton non fissuré 4"
    End Select
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.Clear
    ComboBox1.AddItem "Béton fissuré"
    ComboBox1.AddItem "Béton non fissuré"
    ComboBox1.Text = "Béton fissuré"
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed