Bouton supprimer sur Listbox

[Monhtc]

Bonjour chers tous,
Débutant en VBA je galère sur un code sans trouver de solution. C'est pourquoi j'aimerais soumettre mon problème afin de pouvoir bénéficier de votre assistance.

Sur un formulaire j'ai crée un bouton "delete" afin de pouvoir supprimer une ligne de données via ma Listbox "bdd" si celle-ci est sélectionnée. j'ai utilisé le code qui suit tout en bas. Cependant quand je l’exécute en cliquant sur le bouton, il supprime la ligne supérieur à ma sélection

Private Sub delete_Click()
Dim i As Integer

For i = 0 To Range("A65356").End(xlUp).Row - 1
    If bdd.Selected(i) Then
        Rows(i).Select
        Selection.Delete
    End If
Next i
End Sub

 

[Hasco]

Bonsoir,

Les numéros de lignes de feuille commençant à 1 et vos items de bdd à 0 vous pouvez essayer :Rows(i+1).EntireRow.Delete
sans passer par la sélection, à moins que vous en ayez besoin.

Cordialement

 

[patricktoulon]

re
bonsoir
ATTENTION cette liste est elle rempli avec un range ou boucle ("additem") en supprimant les vides
ca change tout

 

[Monhtc]

re
bonsoir
ATTENTION cette liste est elle rempli avec un range ou boucle ("additem") en supprimant les vides
ca change tout

Merci @patricktoulon en effet elle est a rempli avec un range

 

[Monhtc]

Bonsoir,

Les numéros de lignes de feuille commençant à 1 et vos items de bdd à 0 vous pouvez essayer :Rows(i+1).EntireRow.Delete
sans passer par la sélection, à moins que vous en ayez besoin.

Cordialement

ca marche Nickel merci @Roblochon