Vider Listbox cascade si Listbox précédent est vide - aide

[thespeedy20]

Bonjour le Forum,
Bonjour à tous,

J'ai une première listebox avec des Noms, quand je sélectionne le nom, il indique dans la seconde listbox le nom des cours... ainsi de suite jusqu'à la listebox classe.

Quand je veux décocher le critère Jour, la listboxclasse ne se vide pas... par contre quand je décoche les degrés, la listboxjour se vide...

 

[Rhysand]

Bonsoir à tous

des variables manquent dans vos macros, je vous conseille de le faire

sans trop changer votre projet, J'ai remarqué que dans la procédure Private Sub ListBoxJour_Change() ,vous avez cette ligne écrite comme ceci

        If dchoisis.exists(c.Value) And dchoisis2.exists(c.Offset(, 1).Value) And dchoisis3.exists(c.Offset(, 2).Value) Then mondico(c.Offset(, 9).Value) = "" ' And dchoisis4.exists(c.Offset(, 3).Value)

J'ai fait le changement suivant

        If dchoisis.exists(c.Value) And dchoisis2.exists(c.Offset(, 1).Value) And dchoisis3.exists(c.Offset(, 2).Value) And dchoisis4.exists(c.Offset(, 3).Value) Then mondico(c.Offset(, 9).Value) = ""

la procédure complète

Private Sub ListBoxJour_Change()

     Dim mondico As Variant, i As Integer, c As Range
    
   Set dchoisis4 = CreateObject("Scripting.Dictionary")
   For i = 0 To Me.ListBoxJour.ListCount - 1
   If Me.ListBoxJour.Selected(i) = True Then dchoisis4(Me.ListBoxJour.List(i, 0)) = ""
   Next i
   If dchoisis4.Count > 0 Then Me.RésultatListBoxJour.List = dchoisis4.keys Else Me.RésultatListBoxJour.Clear
    
     'ajouter la classe
    Me.ListBoxClasse.Clear
    
    Set mondico = CreateObject("Scripting.Dictionary")
    For Each c In Range(f.[A2], f.[A65000].End(xlUp))
        If dchoisis.exists(c.Value) And dchoisis2.exists(c.Offset(, 1).Value) And dchoisis3.exists(c.Offset(, 2).Value) And dchoisis4.exists(c.Offset(, 3).Value) Then mondico(c.Offset(, 9).Value) = ""
    Next c
    If mondico.Count > 0 Then Me.ListBoxClasse.List = mondico.keys Else Me.ListBoxClasse.Clear
      
End Sub

 

[thespeedy20]

Bonsoir Rhysand,

Merci pour votre intervention...La modification fonctionne très bien...

Comment changeriez-vous mon projet ? Pouvez-vous m'aider à la rendre meilleur ?

Olivier

 

[Rhysand]

Bonjour à tous,

chaque fois que vous avez des questions ou avez besoin d'aide, n'hésitez pas à demander, il y aura toujours quelqu'un ici sur le forum pour vous aider

à vous de poursuivre votre projet et de le créer comme vous le souhaitez

et ainsi vous apprenez VBA...

 

[thespeedy20]

re,

Merci Rhysand de m'avoir aidé, je vais poursuivre mon projet...

@+

Oli