tamtam64

Ici on présentera un filtre toujours avec une fonction tableau. On y ajoute une condition sur un critére.
Cette solution expliquée est aussi bien présentée dans le livre ctrl shift f9.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IF(INDEX(Produits!$C:$C;MIN(IF(Produits!$R$9:$R$290="OK";IF(COUNTIF(C$19:C19;Produits!$C$9:$C$290)=0;ROW(Produits!$C$9:$C$290);ROWS(Produits!$C$9:$C$290)+ROWS(Produits!$C$9:$C$290)))))=0;"";INDEX(Produits!$C:$C;MIN(IF(Produits!$R$9:$R$290="OK";IF(COUNTIF(C$19:C19;Produits!$C$9:$C$290)=0;ROW(Produits!$C$9:$C$290);ROWS(Produits!$C$9:$C$290)+ROWS(Produits!$C$9:$C$290))))))

...

Cette formule tableau que j'ai créé, à l'aide du formidable bouqui Ctrl shift F9, permet de disposer d'une liste sans doublon à partir d'une liste eventuellement constituée de doublons.
Petites informations :
On va nommer notre liste qui dispose des doublons "Vendeurs". On supose que cette liste est la liste des differents deals effectués, on comprend bien qu'un vendeur peut donc y etre plusieurs fois. Nous on veut récuperer la liste des vendeurs qui ont fait des ventes. ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim MyTab As Variant
    Dim MyRange As Range
    MyTab = Array("SEK", "EUR")
    With Application.ThisWorkbook.Worksheets("Feuil2")
        For Each MyRange In .UsedRange.Columns(2).Cells
            On Error Resume Next
            If Not IsNull(Application.WorksheetFunction.Match(MyRange.Value, MyTab, 0)) Then
                If Err.Number = 1004 Then GoTo 1
                MsgBox ("Il y est")'

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    'transforme une date time sans la date
Function DateWithoutTime(ByVal Dat As Date) As Date
    DateWithoutTime = Int(Dat) + Hour(Date) / 24
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    'importe des donnees text
Sub ImportText(ByVal FileName As String, ByVal PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub