Bonjour à tous,
J'essaye de réaliser une petite application de gestion de stock pour le boulot. J'ai besoin de votre aide pour la suppression d'un article. Dans le cas suivant, en appuyant sur le CommandButton9 je souhaiterais que la ligne correspondante à l'article sélectionné dans la ComboBox1 soit supprimée... Mais ça marche pas. Des idées ?
Merci d'avance,
Private Sub CommandButton9_Click()
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = ComboBox1.Value Then Cells(i, 1).EntireRow.Delete
Next
If Application.WorksheetFunction.And(ComboBox1.Value <> "") Then
MsgBox " Article supprimé ", vbOKOnly + vbInformation, "Suppression"
End If
Unload Suppression_Article
Accueil.Show
End Sub