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
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