XL 2016 Suppression de ligne d'une BD à partir d'une listbox

[DJISA]

Bonsoir le Forum

Je veux pouvoir supprimer des lignes de ma BD à partir de ma listbox mais en cliquant sur le bouton supprimer je constate que c"est seulement l'ID qui est supprimé et non toute la ligne. En dessous le code j'ai utilisé.

Private Sub cmdsupprimer_Click()
If MsgBox("Voulez-vous supprimer les données?", vbYesNo) = vbYes Then
On Error Resume Next
sheets("input").ListObjects(1).ListRows(Me.Txtrowid).Delete

End If

Merci
DJISA

 

[Dranreb]

Si, ça supprime toute la ligne du ListObject. Si ça ne supprime qu'une cellule c'est que ce ListObject n'est défini que sur une colonne.

 

[DJISA]

Bonsoir Dranred, Le Forum

Avec le même code à l'ouverture du classeur, je constate maintenant que toute la ligne est supprimée; cependant l"ID de la ligne qui prend sa position ne s'affiche pas. J'ai plutôt cette erreur à la place: #REF!
Tu constateras qu'il y a un petit développement par rapport à la discussion précédente.

Private Sub cmdsupprimer_Click()
If MsgBox("Voulez-vous supprimer les données?", vbYesNo) = vbYes Then
On Error Resume Next
sheets("input").ListObjects(1).ListRows(Me.Txtrowid).Delete

'Recharger notre listbox
sheets("input").Range("Z3") = "*" & Me.Chercher & "*"
Range("Tableau20").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=sheets("input").Range("Z2:Z3"), CopyToRange:=sheets("input").Range("AB2:AQ2"), Unique:=False
Me.ListBox2.RowSource = "decaler"

'Mettre à jour les comptes
Me.ListBox1.RowSource = "comptes"


End If

End Sub

Merci
DJISA