Sub Filtre_Designation()
Dim I As Integer
Dim Crit() As String
Dim Elem
On Error Resume Next
N = [Stock[Code Fabricant]].SpecialCells(xlCellTypeVisible).Count
If Err = 0 Then
ReDim Crit(1 To N)
For Each Elem In [Stock[Code Fabricant]].SpecialCells(xlCellTypeVisible).Cells
I = I + 1: Crit(I) = CStr(Elem)
Next
[Designation].ListObject.Range.AutoFilter Field:=1, Criteria1:=Crit, Operator:=xlFilterValues
[Designation].Parent.Activate
End If
End Sub
super merci,j'essaie tout ça pendant le weekend.Corrigé
j'ai essayé et c'est parfait, juste une dernière case.Corrigé
Parfait.Corrigé
je vous solicite car depuis dimanche j'essaie de trouver la formule et je n'ai pas réussi donc je vous silicate encore une fois.Corrigé
encore super travail de votre part.Classeur Modifié
Je veux un filtre sur une CologneOki, développez votre demande ...