Lien entre deux listboxs et une checkbox

[pumbathekings]

Bonjour à tous,

Dans mon projet, j'ai deux userforms. le premier qui définit le domaine d'étude (référence plus autres) et le second gère des fonctions et sous-fonctions.

Lorsque je choisis l'élément de référence, il apparait dans le second userform listbox Reference_HC.
Un code à deja été créé qui ajoute des fonctions dans la listbox "Functions". j'aimerai étendre ce code.

En fonction de la reference dans la listbox "Reference_HC" et des checkbox cochées (1, 2 ou 3) il aille chercher les functions dans la feuille DATA1 et les colle dans la listbox "Functions" en fonction de leur référence dans les colonnes F,G ou H dans cette meme feuille.

Ci-dessous le code en question et ci-joint l'excel.

Private Sub CheckBox1_Click()
Dim Cel As Range, i%
With Sheets("Functions")
Select Case Me.CheckBox1.Value
Case True
For Each Cel In Range(.Cells(2, 6), .Cells(.Cells(Rows.Count, 6).End(xlUp).Row, 4))
If Cel.Offset(0, 1) = "O&G" And .Cells(Cel.Offset(0, -2).Row, 2) <> "" Then Me.Functions.AddItem Cel.Offset(0, -2).Value
Next Cel
Case False
For i = Me.Functions.ListCount - 1 To 0 Step -1
For Each Cel In Range(.Cells(2, 4), .Cells(.Cells(Rows.Count, 4).End(xlUp).Row, 4))
If Cel.Offset(0, 1) = "O&G" And .Cells(Cel.Offset(0, -2).Row, 2) = Me.Functions.List(i) Then
Me.Functions.RemoveItem (i)
Exit For
End If
Next Cel
Next i
Functions_change
End Select
End With
End Sub

Merci

Pumba

 

[pumbathekings]

Re : Lien entre deux listboxs et une checkbox

Re,

Je sais bien que c'est un peu le bazard et je m'en excuse. En évitant de mettre des données personelles dans le fichier, je complique encore plus le truc :/.

Ci-joint l'excel.

Encore merci.

Pumba

 

[jpb388]

Re : Lien entre deux listboxs et une checkbox

Re
Remplace la vielle par celle ci

Private Sub LesChks(Ctl As Control)
    
    Dim Cel As Range, i%, Col%
    With Sheets("Functions")
    For i = 6 To .UsedRange.Columns.Count
        If .Cells(1, i) = Me.Reference_HC.List(0) Then Col = i: Exit For
    Next i
        Select Case Ctl.Value
            Case True
                For Each Cel In .Range(.Cells(2, Col), .Cells(.Cells(Rows.Count, 4).End(xlUp).Row, Col))
                    If Cel <> "" Then
                        Select Case Len(Cel.Text)
                            Case Is = 1
                                If Cel.Text = Ctl.Caption Then Me.Functions.AddItem .Cells(Cel.Row, 2).Value
                            Case Else
                                For i = 1 To Len(Trim(Cel.Text))
                                    If Mid(Cel.Text, i, 1) = Ctl.Caption Then Me.Functions.AddItem .Cells(Cel.Row, 2).Value
                                Next i
                        End Select
                    End If
                   
                Next Cel
            Case False
                For i = Me.Functions.ListCount - 1 To 0 Step -1
                    For Each Cel In .Range(.Cells(2, Col), .Cells(.Cells(Rows.Count, 4).End(xlUp).Row, Col))
                       If Cel <> "" And .Cells(Cel.Row, 2) = Me.Functions.List(i) Then
                            Me.Functions.RemoveItem (i)
                            Exit For
                        End If
                    Next Cel
                Next i
                Functions_change
        End Select
    End With
End Sub

re Paritec
dans un autre post j'avais fait l'entame de son projet donc j'ai une vague idée de ce qu'il attend
mais c'est vrai que des explications le plus claire possible avec un fichiers qui relate vraiment les données cela aide
et d'un autre côté je conçois qu'il est difficile d'expliquer ce qu'on as dans la tête
en plus en Bretagne il pleut donc aujourd'hui j'ai le temps
amicalement

 

[pumbathekings]

Re : Lien entre deux listboxs et une checkbox

Re,

Je viens de copier/ coller ton code dans l'excel et cela ne marche pas. Y a t'il autre chose à faire?
Merci.

Pumba

 

[jpb388]

Re : Lien entre deux listboxs et une checkbox

re
oui en effet, Regarde la modification si cela te conviens

 

[pumbathekings]

Re : Lien entre deux listboxs et une checkbox

C'est parfait, merci beaucoup JP pour avoir prit le temps de m'aider.
désolé Paritec, j'essaierai de faire plus clair la prochaine fois.

Pumba

 

[Paritec]

Re : Lien entre deux listboxs et une checkbox

Re Pumba Jpb le forum
Pas de problème, mais sache que plus tu es clair et précis plus les réponses seront rapide et colleront à tes demandes
a+
Papou