Macro - service de sécurité ?

[Synopsis]

Bonjour,
J'utilise pour la première fois le forum, et malgré mes recherches, je n'ai pas trouvé un indice pouvant me servir.
Je souhaite créer une macro qui 'balaie' une colonne d'une autre feuille et qui, lorsqu'elle détecte une occurence précise (un nom, une référence) supprime la ligne contenant cette fameuse occurence.
J'avoue ne pas être à la hauteur de ce dilemne.

Merci de vos éclaircissements.

 

[Jacques87]

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

 

[_Thierry]

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

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

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

 

[Jacques87]

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

 

[Synopsis]

B)

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