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

DJISA

XLDnaute Occasionnel
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é.

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

DJISA

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

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG