Bonjour Ledébutantenvba, James007, le forum,
Private Sub BTN_Supprimer_article_Click()
Dim i As Integer, dl As Integer
Dim Supprimer As String
Supprimer = InputBox("Veuillez taper le numéro d'article que vous souhaitez supprimer", "SUPPRESSION")
With ThisWorkbook.Sheets("Source")
dl = .Range("A" & .Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = dl To 2 Step -1
If Range("A" & i).Value = Supprimer Then
Rows(i).Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
@James007:
J'en profite de ce sujet pour satisfaire ma curiosité:
le choix de la boucle pour supprimer une seule ligne n'est pas adapté
Inadaptée car si une seule ligne à supprimer , on boucle inutilement sur toutes les lignes ?
En revanche, si le numéro est utilisé plusieurs fois, la méthode est préférable au "Find" ?
Merci pour ces précisions.
Cordialement,