Recherche une valeur et supprime la ligne

[EkoH]

Bonjour le forum,

Sur mon fichier prospect, je souhaite à présent pouvoir supprimer les fiches qui ne sont plus d'actualité.

Ne connaissant que très peu le VBA, en cherchant j'ai trouvé une macro qui se rapproche de ce que je veux obtenir cependant je n'arrives pas à l'adapter sur mon fichier.

J'ai affecté cette macro sur l'onglet "Search.Prospect". Je souhaiterai qu'une fois le numéro de la fiche à supprimer est saisi, il recherche dans l'onglet "Fiche.Prospect" Colonne A le numero en question et qu'il supprime toutes les lignes (c'est à dire 51 lignes en faite).

Mon pb : je ne sais pas où je dois mettre ces instructions ...


Sub SupLigValeur()
Dim Var
Dim NumLg
On Error Resume Next
Var = InputBox(Prompt:="Taper la fiche à supprimer. ")
Cells.Find(What:=(Var), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
With Application.ActiveCell
NumLg = .Row
End With
ActiveCell.EntireRow.Select
Style = vbYesNo + vbDefaultButton1
Msg = "Suppression de la ligne N°: " & NumLg
Title = "Attention suppression de la ligne."
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
Selection.Delete Shift:=xlUp
Else
Exit Sub
End If
End Sub


Merci d'avance,
Ekoh

 

[EkoH]

Re : Recherche une valeur et supprime la ligne

re, un petit up
Personne pour cibler le pb ?

 

[Staple1600]

Re : Recherche une valeur et supprime la ligne

Bonsoir


Cela semble fonctionner

Sub SupLigValeurII()
Dim Var As Long
Dim i As Long
Var = InputBox(Prompt:="Taper la fiche à supprimer. ")
For i = Sheets("Fiche.Prospect").Range("A65536").End(xlUp).Row To 1 Step -1
If Sheets("Fiche.Prospect").Cells(i, 1) = Var Then
Sheets("Fiche.Prospect").Cells(i, 1).EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

 

[EkoH]

Re : Recherche une valeur et supprime la ligne

Salut Staple, le forum,

Merci pour ta contribution Staple, cela fonctionne parfaitement bien !

Le fichier prend forme, ca fait plaisir et je vous re-itère mes remerciements pour votre précieuse aide.

EkoH