1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Supprimer_Click()
Dim i As Integer, NomBaseDeDonnée,DonnéeAEffacer
NomBaseDeDonnée = "Produits"
DonnéeAEffacer = lstproduits.List(ListIndex)
For i = 1 To ActiveWorkbook.Worksheets.Count
If Worksheets(i).Name <> NomBaseDeDonnée Then 'On n'efface pas la base de données sauf si tu le souhaites (auquel cas, ligne à effacer ?)
Worksheets(i).Select
Range("A1").Select
On Error Resume Next
Cells.Find(What:=DonnéeAEffacer, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err = 0 Then 'si <> 0, la donnée n'existe pas
ActiveCell.EntireRow.Delete
End If
Err.Clear
End If 'à effacer aussi ?????
Next i
End sub |