Supprimer dans une listbox dont la ligne ne remonte pas

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

Bonjour,

ci-jointe une proposition avec

1- retour à une taille normale

2- actualisation ListBox selon opération (donc pas de suppression d'item)

Bonjour,

En remplaçant

For i = 1 To 8
Worksheets("Donnees").Cells((SelectID + 3), i) = ""
Next

par

Worksheets("Donnees").Rows(SelectID + 3).Delete Shift:=xlUp

ça résout le souci.

a voir les conséquences sur les formules de la colonne I.

A+

EDIT : bonjour thev

Super merci beaucoup à vous deux. La fonction Shift a belle est bien marché. Je regarde l’autre solution ce soir. En tout cas merci beaucoup.

Rechercher des sujets similaires à "supprimer listbox ligne remonte pas"