Novice avance !?
XLDnaute Occasionnel
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
on aurait plutôt
Merci par avance
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
Code:
Cell <> "Repos"
Code:
Cell <> liste_utilisateur
Merci par avance
Code:
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