Discussion :

[casefayere]

Bonsoir à tou(te)s,

J'ai adapté cette procedure pour eviter les doublons d'une listbox dans un userform, jusque là, pas de problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test1()
Dim Cell As Range
With Worksheets("AYANTS DROIT")
CHOIX_SALARIE.CHOIX.Clear
For Each Cell In .Range("c8:c" & .Range("c" & Rows.Count).End(xlUp).Row)
If .Range("c" & Cell.Row) <> .Range("c" & Cell.Row - 1) And .Range("d" & Cell.Row) = "ACTIF" Then
    If CHOIX_SALARIE.CHOIX.ListIndex = -1 Then
    CHOIX_SALARIE.CHOIX.AddItem Cell
    End If
End If
Next Cell
End With
End Sub

mais si j'ajoute du code, voir ci-dessous, les doublons réapparaissent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test1()
Dim Cell As Range
With Worksheets("AYANTS DROIT")
CHOIX_SALARIE.CHOIX.Clear
For Each Cell In .Range("c8:c" & .Range("c" & Rows.Count).End(xlUp).Row)
'début de partie ajoutée
If .Range("d" & Cell.Row) = "ACTIF" Then
    CHOIX_SALARIE.CHOIX.AddItem Cell
    If CHOIX_SALARIE.CHOIX > 1 Then GoTo suite
End If
suite:
' fin de partie ajoutée
If .Range("c" & Cell.Row) <> .Range("c" & Cell.Row - 1) And .Range("d" & Cell.Row) = "ACTIF" Then
    If CHOIX_SALARIE.CHOIX.ListIndex = -1 Then
    CHOIX_SALARIE.CHOIX.AddItem Cell
    End If
End If
Next Cell
End With
End Sub

Quelqu'un peut'il voir mon problème, je ne comprends pas
merci d'avance

[casefayere]

Ma solution était là, tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test1()
Dim Cell As Range
With Worksheets("AYANTS DROIT")
CHOIX_SALARIE.CHOIX.Clear
For Each Cell In .Range("c8:c" & .Range("c" & Rows.Count).End(xlUp).Row)
If .Range("d" & Cell.Row) = "ACTIF" Then
    CHOIX_SALARIE.CHOIX.AddItem Cell
End If
Next Cell
End With
End Sub

Plus besoin de se décarcasser pour moi