XL 2016 changement en fonction des valeurs contenues dans une listbox

patrick60880

XLDnaute Nouveau
Bonjour à tout le forum.
J'ai une petite question technique qui me pose problème:
J'ai une listbox avec 12 colonnes. Cette listbox est alimentée par un combobox. Ensuite je trie cette listbox par 2 option button en fonction des données contenues dans la colonne 12.
La colonne 12 ne comporte que les chiffres 0 et 1. Mon option button 1 affiche les chiffres 1 et mon option button 2 affiche le chiffre 0.
Ma question: Est-il possible de faire apparaître l'option button 2 que s'il y a au moins une valeur 0 dans la colonne 12 de ma listbox?
Voici mes codes pour les 2 option button:

Private Sub OPT1_Click()
Dim Tbl()
articles = Me.ComboBox1
n = 0
For i = 1 To UBound(BD)
If BD(i, 2) Like articles And BD(i, 12) <> "0" Then
n = n + 1: ReDim Preserve Tbl(1 To Ncol, 1 To n)
For K = 1 To Ncol: Tbl(K, n) = BD(i, K): Next K

If i = UBound(BD) Then Exit For
If BD(i, 1) <> BD(i + 1, 1) Then
n = n + 1
ReDim Preserve Tbl(1 To UBound(BD, 2), 1 To n)
End If

End If
Next i
If n > 0 Then
Me.ListBox1.Column = Tbl
Me.Label3.Caption = Me.ListBox1.ListCount & " Ligne(s)"
Else
Me.ListBox1.Clear
Me.Label3.Caption = ""
End If

End Sub

Private Sub OPT2_Click()
Dim Tbl()
articles = Me.ComboBox1
n = 0
For i = 1 To UBound(BD)
If BD(i, 2) Like articles And BD(i, 12) <> "1" Then
n = n + 1: ReDim Preserve Tbl(1 To Ncol, 1 To n)
For K = 1 To Ncol: Tbl(K, n) = BD(i, K): Next K

If i = UBound(BD) Then Exit For
If BD(i, 1) <> BD(i + 1, 1) Then
n = n + 1
ReDim Preserve Tbl(1 To UBound(BD, 2), 1 To n)
End If

End If
Next i
If n > 0 Then
Me.ListBox1.Column = Tbl
Me.Label3.Caption = Me.ListBox1.ListCount & " Ligne(s)"
Else
Me.ListBox1.Clear
Me.Label3.Caption = ""
End If

End Sub
 

Discussions similaires

Réponses
3
Affichages
533
Réponses
4
Affichages
165

Statistiques des forums

Discussions
311 705
Messages
2 081 724
Membres
101 804
dernier inscrit
chefTarik