Alim Combobox avec condition sans doublon

[xvella]

Bonjour forum,

Voila le petit problème:
J'ai un tableau qui se crée par transfert et donc qui va loin.
J'aimerais avoir dans le userform une combobox qui me list les dates pour lesquels il n'y a pas de donnée 4 et qu'il n'y est pas de doublons dans celle-ci.

Merci à tous.
Bonne journée.
@+

 

[michel_m]

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

 

[xvella]

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.

@+

 

[michel_m]

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

 

[xvella]

Re : Alim Combobox avec condition sans doublon

Bonsoir Michel_M,
Bonsoir forum,

Merci pour ton aide et bonne nuit.

@+