D
Dom
Guest
Bonjour,
je cherche à faire une macro de recherche en sachant que ce sera toujours le texte de la cellule A1 qui doit être trouvé dans la plage A2:A1000 et que ce texte change tous les jours.
Si le texte est trouvé sélectionner la ligne et la supprimer.
Comme je ne connais rien de rien en VBA voilà comment j'ai commencé en essayant de me servir de l'enregistreur de macro mais évidemment rien ne marche alors si jamais merci de votre aide
Sub cherche()
Dim cr As String
cr = [A1].Value
For Each Cellule In Range("A2:A1000")
Cells.Find(What:="cr", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.FindNext(After:=ActiveCell).Activate
EntireRows.Select
Selection.Delete Shift:=xlup
Next
End Sub
je cherche à faire une macro de recherche en sachant que ce sera toujours le texte de la cellule A1 qui doit être trouvé dans la plage A2:A1000 et que ce texte change tous les jours.
Si le texte est trouvé sélectionner la ligne et la supprimer.
Comme je ne connais rien de rien en VBA voilà comment j'ai commencé en essayant de me servir de l'enregistreur de macro mais évidemment rien ne marche alors si jamais merci de votre aide
Sub cherche()
Dim cr As String
cr = [A1].Value
For Each Cellule In Range("A2:A1000")
Cells.Find(What:="cr", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.FindNext(After:=ActiveCell).Activate
EntireRows.Select
Selection.Delete Shift:=xlup
Next
End Sub