Microsoft 365 Userform Bouton SUPPRIMER

[eric72]

Bonjour à tous,
j'essaie désespéremment de supprimer une ligne d'un tableau structuré à l'aide d'un bouton "supprimer" dans le userform "UsfProduit", sans succès, auriez-vous une idée de la boulette?
Merciiiiii
Eric

 

[ALS35]

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

 

[eric72]

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

 

[ALS35]

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

 

[eric72]

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

 

[ALS35]

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

 

[eric72]

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

 

[eric72]

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