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 :
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