Supprimer dernière ligne d'une listView

Question

Bonjour la communauté :)

J'espère que vous allez bien.

J'ai une listview qui s'actualise lorsque je clique sur un bouton (actualisation des valeurs) MAIS ... la même ligne qui s'est actualisée s'affiche à la suite sur la dernière ligne ... Sur la feuille Excel source par contre elle ne se rajoute pas !

J'aimerais savoir quel code je peux mettre à la suite sur mon bouton pour effacer cette dernière ligne de la Listview ... ou actualiser de nouveau ...

Voici le code de l'actualisation de la listview :

Private Sub actualiser()
Application.Calculation = xlCalculationManual
Dim item As ListItem
Dim Derlig As Integer
Dim i As Integer

ListView3.ListItems.Clear
Derlig = Sheets("SALAIRE").Cells(Rows.Count, 14).End(xlUp).Row

For i = 3 To Derlig
    Set item = ListView3.ListItems.Add(Text:=Sheets("SALAIRE").Cells(i, 13).Value)
        item.SubItems(1) = Format(Sheets("SALAIRE").Cells(i, 14), "general number")
        item.SubItems(2) = Format(Sheets("SALAIRE").Cells(i, 15), "general number")
        item.SubItems(3) = Format(Sheets("SALAIRE").Cells(i, 16), "general number")
Next i

For i = 3 To Derlig
     If Sheets("SALAIRE").Cells(i, 13) = ComboBox2 Then
     Set item = ListView3.ListItems.Add(Text:=Sheets("SALAIRE").Cells(i, 13).Value)
        item.SubItems(1) = Format(Sheets("SALAIRE").Cells(i, 14), "general number")
        item.SubItems(2) = Format(Sheets("SALAIRE").Cells(i, 15), "general number")
        item.SubItems(3) = Format(Sheets("SALAIRE").Cells(i, 16), "general number")

     End If
Next i

End Sub

dans le code du bouton je mets à la fin :

Call actualiser

Merci pour le dépannage :)

Invité · Accepted Answer

Tu pourrais nous dire pourquoi tu mets 2 fois la même boucle ou presque Sinon sans fichier, il sera difficile de t'aider je pense A+...