Supprimer "Doublon" ListBox

Bonjour,

J'ai un petit problème dans ma macro d'où mon post.

En faite j'ai une plage de donnée de A1 à A17. Cette plage de donnée constitue ma liste mais dans la colonne B il peut avoir des donnée

qui si elles sont présente sont identiques à celles présente dans la colonne A. Je souhaiterais donc retirer de ma listbox les donnée de la colonne B. Voici ma macro :

Private Sub UserForm_Initialize()
Dim ligne As Integer
Dim cell As Range
ListBox1.List() = Range("A1:A17").Value
ligne = Range("B18").End(xlUp).Row
For Each cell In Range("B4:B" & ligne)
ListBox1.RemoveItem cell.Value
Next
End Sub

c'est une macro annexe qui ajoute des valeurs de la colonne A dans la colonne B

Merci d'avance pour votre aide

Bonjour,

Plutôt qu'enlever les doublons, tu peux éviter de les ajouter à la ListBox.

Private Sub UserForm_Initialize()
Dim Cel As Range
    For Each Cel In Range("A1:A17")
        If Application.CountIf(Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row), Cel.Value) = 0 Then _
        ListBox1.AddItem Cel
    Next Cel
End Sub

A+

Bonsoir,

Tout simplement Parfait !!

Merci Beaucoup frangy !!