Selection des lignes contenant une valeurs

[Jean]

Je cherche une macro qui supprimerais toutes les ligne d'une feuil(nom : ensemble) contenant une valeur d'une userform(compte.Value) et qui rajouterai le nombre de lignes supprimer avant la ligne 2500 !!

Suis-je assez explicite ??

Merci d'avance
Jean Nicod 😉

 

[_Thierry]

Option Explicit
Option Compare Text

Sub Bonjour()
Dim SearchString As String
Dim Cell As Range, Plage As Range
Dim Counter As Integer

SearchString = InputBox('La String a trouver en colonne A')

Set Plage = Range(Range('A2'), Range('A65536').End(xlUp))

For Each Cell In Plage
    If Cell = SearchString Then
        Cell.Clear
        Counter = Counter + 1
    End If
Next

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Rows('2500:' & 2500 + Counter).Insert Shift:=xlDown

End Sub

Bonjour au fait 😉

Et bonne Journée
[ol]@+Thierry[/ol]

 

[jean]

Bonjour et merci bcp !!

bonne journée
jean