Alim Combobox avec condition sans doublon

Re : Alim Combobox avec condition sans doublon

Bonjour,

ci dessous macro proposée à installer dans le code de ton usf

Private Sub UserForm_Initialize()
Dim coll As Collection
Dim derlig As Long, lig As Long

Set coll = New Collection
derlig = Range("A3000").End(xlUp).Row

For lig = 6 To derlig
If Cells(lig, 5) = "" Then
On Error Resume Next
coll.Add Cells(lig, 1), CStr(Cells(lig, 1))
On Error GoTo 0
End If
Next

For cptr = 1 To coll.Count
Me.ComboBox1.AddItem coll(cptr)
Next

Me.ComboBox1.ListIndex = 0
set coll=nothing
End Sub

Re : Alim Combobox avec condition sans doublon

Bonsoir Michel_M,
Bonsoir forum,

Déjà, je tiens à te remercié car ça marche très bien.

Pourrais-tu m'expliqué :
CStr & cptr
car je ne les aient jamais utiliser avant.

Je te souhaite une bonne fin de journée;
et encore merci.

@+

Re : Alim Combobox avec condition sans doublon

Re,

cstr: fonction. Convertit en texte (string), le 2° terme de la collection est une clé qui n'admet que des variables "string"
étant une clé, elle n'admet pas les doublons et provoque une erreur d'où la vieille astuce d'utiliser le gestionnaire d'erreur... ce qui permet d'avoir une liste sans doublons;

Cptr:
variable "michel_m" pour désigner un compteur!

Bonne soirée

Re : Alim Combobox avec condition sans doublon

Bonsoir Michel_M,
Bonsoir forum,

Merci pour ton aide et bonne nuit.

@+