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