XL 2010 Supprimer des lignes non classées

[Usine à gaz]

Bonjour à toutes et à tous,

Voilà longtemps que je n'avais pas de nouvelles questions pour des macros insolubles pour moi.
Je me permets donc de vous solliciter à nouveau.
Un grand merci d'avance d'être toujours à l'écoute et si bienveillants.

Voici mon souci et je n'y arrive pas malgré mes recherches.
Après un traitement macro VBA, j'ai besoin de supprimer les lignes qui contiennent feuille "suivis"en col A la valeur identique à "feuil1" cellule F7.
la col A de la feuille "suivis"n'est pas forcément classée par ordre croissant

Je n'ai même pas un bout de code qui fonctionne.
Je pense qu'une boucle résoudrait le problème mais je ne sais pas faire.

En espérant votre aide, je vous joins le fichier test.

Avec mes remerciements,
Je vous souhaite à toutes et à tous une très bonne fin de journée,
Amicalement,
Lionel,

 

[gosselien]

Bonjour,
il faut supprimer les lignes qui contiennent 85 dans ce cas ci , c'est bien cela ?

Sub Supprime()
Dim Last As Long
Dim Ws1, Ws2 As Worksheet
Set Ws1 = Sheets("suivis"): Set Ws2 = Sheets("feuil1")
Dim Chiffre
Dim I
Last = Ws1.[A65000].End(xlUp).Row
Chiffre = Ws2.[F7].Value
For I = Last To 4 Step -1
If Ws1.Cells(I, 2).Value = Chiffre Then
Ws1.Cells(I, 1).EntireRow.Delete
End If
Next
End Sub

P.

 

[Alza]

Bonjour,
une proposition ci-jointe

 

[Usine à gaz]

Bonjour Gosselien,

Merci pour cette si rapide réponse.
J'ai intégré ton code dans le classeur mais ça ne supprime pas.

"il faut supprimer les lignes qui contiennent 85 dans ce cas ci , c'est bien cela ?"
Effectivement, il faudrait supprimer les lignes entière de la feuille "suivis" si il y a 85 en colonne A.

Voici le classeur avec ton code intégré.
Encore merci,
Amicalement,
Lionel,

 

[Usine à gaz]

Bonjour Alza,

Merci aussi pour cette rapide réponse ..... et ça marche.
Vraiment merci,
Amicalement,
Lionel,

 

[DoubleZero]

Bonjour à toutes et à tous,

Une autre suggestion avec le code suivant :

Option Explicit
Sub Lignes_supprimer()
    Application.ScreenUpdating = 0
    With Sheets("suivis")
        .[a1].AutoFilter Field:=1, Criteria1:=Sheets("Feuil1").Range("f7").Value, Operator:=xlAnd
        .Rows("3:" & Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .[a1].AutoFilter
    End With
    Application.ScreenUpdating = -1
End Sub

A bientôt

 

[Usine à gaz]

Bonjour DoubleZero,
Bonjour à toutes et à tous.
Super ce code et plus rapide, il fonctionne "nickel" un grand merci.
Je ne comprends pas le code suivant : Application.ScreenUpdating = -1
Il fait koi celui-là LOL
Encore merci,
Amicalement,
Lionel,

 

[gosselien]

Bonjour,

il permet de ne pas voir l'écran scintiller à cause des opérations qui s'y passent; ça le "gèle" le temps du déroulement de la macro

P.

 

[Usine à gaz]

Bonjour Gosselin,
Merci pour votre réponse.
Je connaissais ça :
Application.ScreenUpdating = False
Application.ScreenUpdating = True

C'est la même action ?

 

[DoubleZero]

Bonjour à toutes et à tous,

...
Je connaissais ça :
Application.ScreenUpdating = False
Application.ScreenUpdating = True

C'est la même action ?

Oui, les actions sont identiques... mais :

- Application.ScreenUpdating = 0 ;
- Application.ScreenUpdating = -1...

permettent d'écnmiser l'encre !

A bientôt