scamanto024
XLDnaute Nouveau
Bonjour,
je suis débutant en VBA, et j'aimerai faire une petite manip sur excel via VBA:
j'ai 2 feuilles, la 1ere contient une liste(exhaustive) des alarmes, et la 2eme contient une liste d'alarmes à ignorer; donc chercher les alarmes de la Feuil2 sur Feuil1 et supprimer la ligne contenant la fausse alarme.
merci pour votre support
je suis débutant en VBA, et j'aimerai faire une petite manip sur excel via VBA:
j'ai 2 feuilles, la 1ere contient une liste(exhaustive) des alarmes, et la 2eme contient une liste d'alarmes à ignorer; donc chercher les alarmes de la Feuil2 sur Feuil1 et supprimer la ligne contenant la fausse alarme.
merci pour votre support
HTML:
Sub RechercheAlarme()
Dim Var As String
Dim i As Integer
On Error Resume Next
Var = Sheets("liste").Columns(1).Range("A1").Value
For Each cellule In Sheets("alarme").Columns(1).Range("A" & i)
If Abs(cellule.Value) = Var Then
Set MotTrouvé = Cells.Find(What:=Var)
MotTrouvé.Select
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
'Var = Sheets("liste").Columns(1).Range("A1").Value
'If Var = "" Then Exit Sub
'Set MotTrouvé = Cells.Find(What:=Var)
'If Not MotTrouvé Is Nothing Then
Next
'Wend
End Sub