Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bouton supprimer sur Listbox

Monhtc

XLDnaute Occasionnel
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
VB:
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

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Réponses
3
Affichages
572
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…