Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Listbox multiselect probleme

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…