Recherche

[Dom]

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

 

[Keata]

Bonjour,

voici une solution (on part du principe qu'il n'y a pas de doublon)

Sub cherche()
Dim LigTrouve As Single
Dim Texte As String
Texte = Range("A1").Value
For LigTrouve = 2 To 1000
If Cells(LigTrouve, 1) = Texte Then
Cells(LigTrouve, 1).Delete Shift:=xlUp
LigTrouve = 1000
End If
Next LigTrouve
End Sub


Keata

 

[Rolilandon]

Bonjour
Avant d'utiliser cellule il faut que tu la déclares comme variant

Dim cellule as variant

Dans ta recherche, cr représente une variable et donc pas de guillemets

(What:=Cr

 

[Keata]

re:
si les doublons sont possibles tu supprimes (bien sur) la ligne

LigTrouve = 1000

salut

 

[Dom]

Bonjour,

Merci beaucoup je vais essayer tout de suite et si j'ai encore un problème je reviendrais.

Bonne journée