Optimisation/modif code

Bonsoir,

J'aimerais optimiser le code ci-dessous.

Je souhaite supprimer toutes les lignes qui ne répondent pas au critère filtré et jusqu'à la dernière ligne non vide.

Voici mon code:

With ActiveWorkbook.Sheets("Cat. Méth. NCPF")

For i = .Range("A" & .Rows.Count).End(xlUp).Row To 9 Step -1

If .Range("A" & i).Value <> "T2 Chapeau" Then

.Rows(i).Delete

End If

Merci pour votre aide.

Salut

peut être comme ça :

With ActiveWorkbook.Sheets("Cat. Méth. NCPF")
drlgn = .Range("A" & .Rows.Count).End(xlUp).Row
For i =drlgn To 9 Step -1
If .Range("A" & i).Value <> "T2 Chapeau" Then
.Rows(i).Delete
End If
Next
end with

Merci, j'ai testé mais ça n'améliore pas l'efficience du code et pourtant il y a à peine 1000 lignes à supprimer.

La macro dans sa globalité prend plus de 5 minutes à se réaliser.

Lorsque je fais le pas à pas c'est à cette étape que la macro boucle boucle et reboucle

Bonsoir mth_26

Une proposition :

Sub propositionGVS()
    With ActiveWorkbook.Sheets("Cat. Méth. NCPF")
        'On annule les filtres actuels s'ils existent
        .AutoFilterMode = False

        'On filtre sur la valeur voulue
        .UsedRange.AutoFilter Field:=1, Criteria1:="<>T2 Chapeau"

        'On supprime toutes les lignes visibles sauf la 1ère ligne (Entêtes de colonnes"
        .UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

        'On annule le filtre
        .AutoFilterMode = False
     End With
End Sub

Bonsoir Gérard,

Top top, une toute petite modif de rien du tout (lignes 1 à 8 = en tete)

j'avais pas du tout envisagé la macro dans ce sens

Merci beaucoup!

bonne soirée

J'ai dupliqué ce code sur les autres boutons (8 au total car 8 critères différents) en modifiant le critère de discrimination mais là j'ai un petit soucis.

Les lignes 1 à 8 incluses ne doivent pas etre supprimées.

j'ai besoin d'une constante parce que des lignes peuvent etre ajoutées dans le fichier ce qui va modifier les plages de de mes 8 critères.

Merci

Je ne parviens pas à visualuser tout ça...

Peux-tu joindre un échantillon ?