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

Membres actuellement en ligne

Statistiques des forums

Discussions
312 069
Messages
2 085 041
Membres
102 764
dernier inscrit
nestu