Listbox avec collection unique

Bonjour Le forum

Avec ce fichier réduit, je cherche à afficher les noms "B" et "E" dans la listbox

Raisonnement:

En parcourant une colonne donnée, s'il y a un "X" alors afficher le nom dans la listbox

on passe à la colonne suivante et ainsi de suite

Merci de votre concours

Bonjour,

Private Sub UserForm_Initialize()
Dim C As Range
    With Worksheets("Feuil1").Columns(2)
        Set C = .Find("X", LookIn:=xlValues)
        If Not C Is Nothing Then
            firstAddress = C.Address
            Do
                Me.ListBox1.AddItem C.Offset(0, -1)
                Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
    End With
End Sub

A+

Bonjour Frangy

C'est exact ce que vous m'avez fait là.

Peut on ajouter un autre paramètre?

pour la colonne suivante C'est "A" et "D" qui seront affichés.

Alors il faut ajouter un autre critère.

Pour cela je prévois une combo qui pourrait permettre de sélectionner la colonne de référence

Merci

Voila, voila !

A+

Re Frangy

c'est tout simplement parfait.

Re-merci

A bientôt