USF & listbox de date sans doublon

[guy974]

Bonjour,

Dans l'UserForm2,

je souhaite alimenter la listbox1 avec les dates(sans doublon) comprises dans la feuille "Lignes Rovema et Eurotech" entre D45 et D65536.

Mais malgré mon code rien ne s'affiche ?

En vous remerciant

Guy

 

[Hervé]

Re : USF & listbox de date sans doublon

bonjour tout le monde 🙂

ton code corrigé

Private Sub UserForm_Initialize()' et non userform2_initialize

'End Sub'fin de procédure donc inutile ici

Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim i As Integer


With Sheets("Lignes Rovema et Eurotech")'et non sheet

'Récupère la derniere ligne non vide dans la colonne D
i = .Range("D65536").End(xlUp).Row

On Error Resume Next
'boucle sur les cellules de la colonne A
For Each Cell In .Range("D45:d" & i)'et non ("d45:g")
'Stocke les données dans une collection
'(La collection n'accepte que des données uniques et permet donc
' de filtrer facilement les doublons).
Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0

'Boucle sur le contenu de la collection pour alimenter la ListBox
For Each Valeur In Unique
Me.ListBox1.AddItem Valeur
Next Valeur
End With'ajout
End Sub


salut et bon dimanche

 

[bqtr]

Re : USF & listbox de date sans doublon

Bonjour Guy,

Ton fichier modifié

Bonne journée

P.O

Edit : Salut Hervé, j'envoie quand même le fichier modifié

 

[guy974]

Re : USF & listbox de date sans doublon

génial,

merci beaucoup

Bon dimanche