XL 2016 liste sans doublon non triée avec 2 conditions (VBA)

[GOLE]

Bonjour le forum,
Ci-joint un fichier où il faudrait obtenir une liste sans doublon non triée avec conditions particulières
Merci par avance

 

[GOLE]

C'est top merci
Pour la colonne résultat sur une autre feuille, est ce que tu peux le faire?

 

[pierrejean]

Re
Voila

 

[patricktoulon]

bonjour tout les deux
si vba vous tient
sans dico
'module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  'Range("D1:D601").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("CF1"), Unique:=True
  If Target.Column = 4 Then
    Call report2(Target.Value)
  End If
End Sub

'module standard

 report2(valeur)
    If valeur <> "" Then
        With Sheets("Feuil1")
            Set plage = .Range("G2:G" & .Cells(Rows.Count, "G").End(xlUp).Row)
            dispoline = .Cells(Rows.Count, "G").End(xlUp).Offset(1).Row
            If WorksheetFunction.CountIf(plage, valeur) = 0 Then .Cells(dispoline, "G") = valeur
        End With
    End If
End Sub

 

[GOLE]

Merci pour sans dico, je reste sur la première version qui va trés bien
par contre si tu pouvais me trouver le code qui mettrait le résultat non pas sur colonne CF de la feuille saisie mais sur la colonne E d'une autre feuille "résultat" par exemple...toujours en utilisant le code avec dico
dur ou pas dur ?

 

[GOLE]

Merci Pierrejean pour tout !
je n'avais pas vu que tu m'avais déjà envoyé la réponse
ça marche super
A+ sur le forum