Identifier les doublons sans prendre en compte les éléments d'une liste

[Novice avance !?]

bonjour,
Ci-dessous le code que j'utilise pour identifier les doublons dans un tableau défini.
J'aimerais pouvoir l'adapter pour que l'exclusion qui ne touche pour l'instant que le mot "Repos" puisse prendre en compte une liste de mot à ne prendre en compte que l'utilisateur aura au préalable indiquer dans une cellule.

Du style en A1 je demande à l'utilisateur quels sont les mots ? et en A2 il les écrit en les séparant d'une virgule.

Du coup dans mon bout de code

Cell <> "Repos"

on aurait plutôt

Cell <> liste_utilisateur

Merci par avance

Sub GestionDoublons_liste(Plage As Range)
Dim Cell As Range
Dim Un As Collection
    
Set Un = New Collection
  
On Error Resume Next
    
For Each Cell In Plage
    If Cell <> "" And Cell <> "Repos" And IsNumeric(Cell) = False Then
        Un.Add Cell, CStr(Cell)
            If Err <> 0 Then Cell.Interior.ColorIndex = 4
        Err.Clear
    End If
Next Cell
    
Set Un = Nothing
End Sub

 

[youky(BJ)]

Re : Identifier les doublons sans prendre en compte les éléments d'une liste

Bonjour à tous,
Essayez comme ceci si j'ai pigé

If Cell <> "" And Application.CountIf(Range(liste_utilisateur), cells) =0 And not IsNumeric(Cell) Then

Bruno

 

[Novice avance !?]

Re : Identifier les doublons sans prendre en compte les éléments d'une liste

c'est tout bon... merci