Macro - service de sécurité ?

Bonsoir

Tu pourrais essayer ceci

Dim occurence As String 'je suppose qu'il s'agit de texte
Dim C as Range
Dim derlign As Integer, I as Integer

occurence = InputBox('que cherchez vouis ?')
derlign = WorkSheets('Feuil2').Range('A65536').End(XlUp).Row 'je suppose que les occurences sont dans la colonne A de la feuille 2

For I = 1 To derlign
If Range('A' & I).Value = occurence Then
Row(I).Delete
End If
Next I

Bon courage

Bonsoir Jacques, Synopsis, le Forum

Attention Jacques, non pas qu'il te manque un s à ton instruction :

Rows(I).Delete

Mais si notre ami a plusieurs fois une occurence précise à la suite (exemple sur 20 lignes d'affilées)... Et bien ce genre de code n'éradiquera pas toutes ces occurrences répétitives....

Ce phénomène est dû à 'Rows(I).Delete' qui, quand cette instruction est utilisée au cours d'un boucle de type 'for I to LastLign', finit par faire un décalage, ce qui est logique, on enlève des rows alors que le 'compteur' de la boucle tourne....

Donc on peut s'y prendre à l'envers :

Sub Jacques_Corrected()

Dim Occurence As String 'je suppose qu'il s'agit de texte
Dim C As Range
Dim DerLign As Integer, I As Integer

Occurence = InputBox('que cherchez vouis ?')
DerLign = Worksheets('Feuil2').Range('A65536').End(xlUp).Row 'je suppose que les occurences sont dans la colonne A de la feuille 2

    For I = DerLign To 1 Step -1
        If Range('A' & I).Value = Occurence Then
            Rows(I).Delete
        End If
    Next I

End Sub

Cliquez pour agrandir...

Une autre astuce que j'ai montrée à l'époque à mon ami et compatriote @Christophe@ dans ce Fil : Lien supprimé

Consite à faire comme ceci :

Sub Eradicator()
Dim Cell As Range
Dim Occurence As String

Occurence = InputBox('que cherchez vouis ?')

    For Each Cell In Range(Range('A1'), Range('A65536').End(xlUp))
        If UCase(Cell) = UCase(Occurence) Then
            Cell.ClearContents
        End If
    Next Cell
Sheets('Feuil2').Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Cliquez pour agrandir...

Bonne Soirée
[ol]@+Thierry[/ol]

Tout à fait Thierry

2 à 0

Je me fais avoir à chaque coup et quand je m'en rends compte je réincrémente la variable boucle
Mais il est vrai que l'idéal est de pratiquer 'à l'envers'

Très bonne soirée

B)

C'est magnifique ! Un gain de temps impressionnant ! Plus besoin de trier / supprimer... Je vous remercie franchement du fon du coeur !