Filtre rapide sur 8 colonnes

Question

Comme le titre l'indique j'aimerai filtrer sur 8 colonnes avec un critère mais de manière fluide et rapide. En effet j'ai déjà un code qui me permet de filtrer sur 8 colonnes mais l’exécution est très lente. Sub Genre_Romance() Application.ScreenUpdating = False For Ln = 18 To Range("I18").CurrentRegion.Rows.Count + 17 If Left(Range("B" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("C" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("D" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("E" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("F" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("G" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("H" &amp; Ln), 7) &lt;&gt; "Romance" _ And Left(Range("I" &amp; Ln), 7) &lt;&gt; "Romance" Then Rows(Ln &amp; ":" &amp; Ln).EntireRow.Hidden = True End If Next Ln Rows("17:17").EntireRow.Hidden = True End Sub Je voulais donc savoir si il y avais moyen de filtrer sur plusieurs colonnes autrement qu'avec un code comme le mien car sur quelques lignes, no problem mais quand on en vient à plus de 700... c'est long, très long! J'aimerai bien partager mon fichier pour vous montrer mais si je veux pouvoir le partager il faut que je le réduise et si je le réduis... et bien le problème de temps ne se pose plus comme j'aurai supprimé pas mal de lignes... En espérant trouver de l'aide! Bonne matinée et à très vite...

gmb · Accepted Answer

Dans l'attente de ce que va trouver LouReed et qui sera sans doute meilleur, je te propose ce code à tester.

Il fait exactement ce que fait le tien.

Quant à la vitesse, il me semble qu'il fait mieux.

Sub Filtrer()
    Application.ScreenUpdating = False
    For i = 1 To 10
        nom = Choose(i, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
        Cells(17, i) = nom
        Cells(4, i + 10) = nom
        Cells(4 + i, i + 10) = "Romance*"
    Next i
    Range("A17:J" & Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
            Range("K4:T14"), Unique:=False
    Range("A17:A10").ClearContents
    Range("k4:T14").ClearContents
End Sub

Bye !

LouReeD · Answer

Ceci dit pour l'histoire du fichier joint, cela permettrait d'avoir une structure, juste un petit truc sur quoi se baser pour recherche une solution quelconque... @ bientôt LouReeD...

LouReeD · Answer

Le site "ci - joint" je crois, il est souvent utilisé ici @ bientôt louReeD...

eriiic · Answer

Je viens juste de finir. Ca filtre en moins d'une seconde. Mais j'ai eu subitement un doute. Et oui, c'est bien ça : https://forum.excel-pratique.com/excel/forumule-si-forcer-le-calcule-d-une-cellule-texte-t58909-20.html#p333409 eric...

LouReeD · Answer

Bravo aux personnes attentives ! Ceci dit je vais essayer... pas sur de faire mieux qu'Eriiic.... @ bientôt LouReeD...

gmb · Answer

Flute alors ! J'aurais eu plaisir à découvrir comment Eric faisait cela ! Dommage ...

LouReeD · Answer

Gmb ! voyons ! je ne suis pas une bête de course en VBA !!! je suis novice !!! Quelque fois je donne des réponses qui marchent mais ce n'est jamais de la haute programmation !!! Je suis plutôt "séquentiel" alors que VBA est plutôt "objet" et "collection"... En plus il faut du temps pour se pencher sur un problème @ bientôt LouReeD...

gmb · Answer

La macro que je t'ai faite est basée sur un filtre avancé. Mais cette technique ne s'applique pas pour fitrer des couleurs. Je te conseille donc d'ouvrir un autre sujet. Bye ...