XL 2010 La méthode Delete de la classe Range a échoué

Dylan67

XLDnaute Nouveau
Bonjour à tous,

J'ai fait un code VBA pour supprimer la ligne d'un tableau après avoir sélectionné une des données du tableau via une combobox dans un userform.

Mon problème est le suivant mon code fonctionne pour toutes les lignes sauf la dernière ligne du tableau lors de sa sélection l'erreur "La méthode Delete de la classe Range a échoué" s'affiche.

ici le code :

VB:
Private Sub CommandButton1_Click()

Dim DR As Integer

DR = MsgBox(("Etes-vous sûr de vouloir supprimer l'article : " & cbx_code.Value & "?"), vbYesNo + vbCritical + vbDefaultButton1, "Quitter")

Select Case DR
Case vbYes
    Sheets("chutes").Activate
    Rows([B9:B10000].Find(cbx_code.Value).Row).EntireRow.Delete

Case vbNo
    Exit Sub

End Select

Unload Me


End Sub
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Vous n'avez pas terminé cette discussion :
Rappel: vous aviez prétendu que la CBxArticle présentait des doublons pour "Profilé1", or cet article n'était mentionné qu'une fois dans la liste, qui en comportait toutefois deux anagrammes: "Porfilé1" et "Proflié1"
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof