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.
 

Pièces jointes

  • Gestion Changements - light.xlsm
    263.7 KB · Affichages: 36

Lolote83

XLDnaute Barbatruc
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+
 

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées