Conbiné des listes de choix listbox

thierry440

XLDnaute Junior
Bonjour

A partir de mon userform saisie , je voudrais combiner mes listes de choix :

Domaine impacté listbox3 avec service impacté listbox5 , de façon a ce que le domaine impacté ne permette le choix dans le service impacté que ceux concernés par le domaine choisi.

Les valeurs sont définies dans la feuille valeurs.

Merci d'avance.
 

Fichiers joints

Lolote83

XLDnaute Accro
Re : Conbiné des listes de choix listbox

Salut,
Selectionne ta ListBox3 et dans les propriété chance ceci :
-BoundColumn = 2
-RowSource = valeurs!A10:B25

puis dans le code rajoute ceci
Code:
Private Sub ListBox3_Click()
    ListBox5.RowSource = ListBox3.Value
End Sub
Cela devrait correspondre à tes attentes
@+ Lolote83
 

Paf

XLDnaute Barbatruc
Re : Conbiné des listes de choix listbox

Bonjour thierry440, Lolote83

une autre proposition:

apporter les modifications des propriétés de ListBox3 préconisées par Lolote83 et ajouter ce code

Code:
Private Sub ListBox3_Click()
 Dim DerLig As Integer, LigDeb As Integer, LigFin As Integer, Res As Range, Tablo
 With Worksheets("valeurs")
 DerLig = .Range("B" & Rows.Count).End(xlUp).Row
 Set Res = .Range("B27:B" & DerLig).Find(ListBox3.Column(1))
 If Not Res Is Nothing Then
    LigDeb = Res.Row + 1
    LigFin = .Range("A" & Res.Row).End(xlDown).Row
    Tablo = .Range("A" & LigDeb & ":A" & LigFin)
    ListBox5.List = Tablo
 End If
 End With
End Sub
A+
 

Discussions similaires


Haut Bas