VBA - Aide pour simplifier un code VBA

Hello tout le monde,

j'ai ce petit bout de macro que j'utilise pour filtrer des lignes dans un tableau.

Il fonctionne très bien mais c'est tres lent et en plus je voudrais le simplifier car je dois rajouter bcp d'occurence , au moins jusqu'a la colonne AK ...

Je sais qu'il faudrait certainement utiliser d'autre boucle FOR mais chaque fois que j'essaie ca fait tout planter et ca filtre pas.

Sub Segment()

Application.ScreenUpdating = False

With ActiveSheet.UsedRange

vf11 = Range("C16").Value

vf12 = Range("D16").Value

vf13 = Range("E16").Value 'a continuer jusqu'a AK16

For I11 = 17 To .Rows.Count

N11 = Application.CountIfs(.Range("C" & I11), "*" & vf11 & "*")

N12 = Application.CountIfs(.Range("D" & I11), "*" & vf12 & "*")

N13 = Application.CountIfs(.Range("E" & I11), "*" & vf13 & "*") ' a continuer jusqu'a N44 avec AK&I11

If Not N11 > 0 Or Not N12 > 0 Or Not N13 > 0 Then .Rows(I11).Hidden = True ' a continuer jusqu'a N44

Next I11

ActiveWindow.ScrollRow = 1

End With

End Sub

Merci à celui qui prendra le temps de jeter un oeil

Nicolas

Bonjour,

essaie ceci

Sub Segment()
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        For i = 17 To .Rows.Count
            For j = 3 To 37
                If Cells(i, j) Like "*" & Cells(16, j) & "*" Then
                Else
                    Rows(i).Hidden = True
                    Exit For
                End If
            Next j
        Next i
    End With
End Sub

Super merci beaucoup

Rechercher des sujets similaires à "vba aide simplifier code"