Envoyer un message instantanée à tamtam64 avec...
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.