Bonjour à tous
j'ai un problème avec la fonction supprimer de ma listbox. En effet lorsque je supprime une case de ma listbox toute l’écriture ce supprime bien mais pas la case. si je supprime un véhicule au milieu de ma listbox je me retrouve avec une case blanche en plein milieu. Le problème ce trouve dans le useform " Rechercher" et sur le programme c'est la case "consulter et gérer".
Merci de votre aide
Voici l'extrait de mon bouton supprimer:
Private Sub SupprimerButton_Click()
On Error Resume Next
Dim i As Integer
Dim SelectID As Integer
SelectID = RechercheListBox.ListIndex
RechercheListBox.RemoveItem RechercheListBox.ListIndex
'confirmation pour eviter de supprimer un élément non désiré
If MsgBox("Voulez-vous supprimer ce chrono ?", vbYesNo) = vbYes Then
For i = 1 To 8
Worksheets("Donnees").Cells((SelectID + 3), i) = ""
Next
End If
End Sub