Microsoft 365 Userform Bouton SUPPRIMER

eric72

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

Pièces jointes

  • Fiche Produit test.xlsm
    507.6 KB · Affichages: 13

eric72

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

Discussions similaires

Réponses
13
Affichages
385
Réponses
15
Affichages
525
Réponses
10
Affichages
482

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth