Microsoft 365 Userform Bouton SUPPRIMER

Bonjour,

Dans ta procédure BtSupprProduitBase_Click(), dans .Rows(NomPlante.Value) il faut mettre l'indice de ligne et non pas le nom du produit.

Cordialement

Bonjour,
Merci pour la réponse j'ai donc essayé ça:
Private Sub BtSupprProduitBase_Click()
Dim question As Integer
Dim no_ligne As Integer
Application.ScreenUpdating = False
Sheets("produit").Visible = True
Sheets("produit").Activate
Call unprotect
'On Error Resume Next
no_ligne = CbRechercheProduit.ListIndex + 2
If MsgBox("Êtes-vous certain de vouloir supprimer", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("produit").Rows(no_ligne, 1).ListObject.DataBodyRange
Unload Me
UsfProduit.Show 'Fermer puis ouvrir permet d'effacer les données
End If
Sheets("produit").Visible = False
Call protect

End Sub

Mais ça ne marche pas non plus!!!
Merci
Eric

Je ne connais pas ton programme mais essaie ceci :
Sheets("produit").Rows(CbRechercheProduit.ListIndex + 2).Delete

Merci encore mais cela supprime toute la ligne et comme c'est un tableau structuré j'aimerais que ça supprime que la ligne du tableau et non pas toute la ligne de la feuille
Merci
Eric

Ah, alors à la place de
Sheets("produit").Rows(no_ligne, 1).ListObject.DataBodyRange
Essaie
Range("BDProduit").ListObject.ListRows(CbRechercheProduit.ListIndex + 1).Delete

je pense avoir trouvé il fallait mettre :
Worksheets("produit").ListObjects("BDProduit").ListRows(CbRechercheProduit.ListIndex + 1).Delete

on s'est croisé, lol!!!
Merci beaucoup pour votre dévouement.
Bonne soirée
Eric