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
 

Dranreb

XLDnaute Barbatruc
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

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas