Filtre Listbox avec Combobox, supprimer ligne

[yiei]

Bonjour, je filtre le contenu d'un listbox à l'aide de plusieurs combobox. J'ai ajouter un bouton supprimer qui me permet après selection dans la listbox de supprimer cette sélection. Le problème c'est après avoir filtré, je sélectionne un ligne et quand je clique sur supprimer, il me supprimer la ligne au dessus.

Je pense que le problème vienne entre autre de cette ligne de commande mais je ne vois pas quoi changer puisqu'elle fonctionne pour autant que je ne filtre pas.

Private Sub Supprimer_Click()

Dim Reponse As Variant
Dim Indexlist

Reponse = MsgBox("Voulez-vous vraiment effacer cette fiche ?", 52, "Effacement de données")
If Reponse = vbNo Then Exit Sub

'Détermination de la ligne dans la feuille de base
Indexlist = ListBox1.ListIndex + 2
If Indexlist < 2 Then Exit Sub
Sheets("Statistiques").Rows(Indexlist).Delete
Application.ScreenUpdating = False

End Sub

merci

 

[jp14]

Re : Filtre Listbox avec Combobox, supprimer ligne

Bonjour

Il faut vérifier si le coefficient 2 de cette ligne est correct

Indexlist = ListBox1.ListIndex + 2

il me supprimer la ligne au dessus

à priori il faudrait 3.

Pour éviter des problèmes il est bon de vérifier si une ligne de la listbox est sélectionnée.
If ListBox1.ListIndex=-1 then exit sub

JP