lolo34140
XLDnaute Nouveau
Bonsoir,
J'ai une listbox (configurée en multiselect) qui me permet de sélectionner des items et de cacher les lignes correspondantes.
Mon problème et que je n'arrive pas à faire fonctionner la listbox en multiselect.
Ma macro pour cacher les lignes marche bien en singleselect mais dès que je mets la listbox en multiselect ça ne marche plus.
Je ne sais vraiment pas comment faire.
Si quelqu'un a une idée.
Voici mon code :
Private Sub ListBox3_Click()
Dim j As Long
Dim i As Long
Dim x As Long
Dim derlig As Integer
derlig = Sheets("données graph").Range("B" & Rows.Count).End(xlUp).Row
For x = 0 To Me.ListBox3.ListCount - 1
If Me.ListBox3.Selected(x) = False Then
For j = 0 To Sheets("Synthèse résultats").ListBox2.ListCount - 1
For i = 5 To derlig
If Sheets("Synthèse résultats").ListBox2.List(j) = Sheets("données graph").Range("B" & i).Value And Sheets("Synthèse résultats").ListBox3.List(x) = Sheets("données graph").Range("E" & i).Value Then
Sheets("données graph").Range("E" & i).Rows.Hidden = True
End If
Next
Next
End If
Next
End Sub
J'ai une listbox (configurée en multiselect) qui me permet de sélectionner des items et de cacher les lignes correspondantes.
Mon problème et que je n'arrive pas à faire fonctionner la listbox en multiselect.
Ma macro pour cacher les lignes marche bien en singleselect mais dès que je mets la listbox en multiselect ça ne marche plus.
Je ne sais vraiment pas comment faire.
Si quelqu'un a une idée.
Voici mon code :
Private Sub ListBox3_Click()
Dim j As Long
Dim i As Long
Dim x As Long
Dim derlig As Integer
derlig = Sheets("données graph").Range("B" & Rows.Count).End(xlUp).Row
For x = 0 To Me.ListBox3.ListCount - 1
If Me.ListBox3.Selected(x) = False Then
For j = 0 To Sheets("Synthèse résultats").ListBox2.ListCount - 1
For i = 5 To derlig
If Sheets("Synthèse résultats").ListBox2.List(j) = Sheets("données graph").Range("B" & i).Value And Sheets("Synthèse résultats").ListBox3.List(x) = Sheets("données graph").Range("E" & i).Value Then
Sheets("données graph").Range("E" & i).Rows.Hidden = True
End If
Next
Next
End If
Next
End Sub