listbox comment enlever doublon de liste?

Re : listbox comment enlever doublon de liste?

Bonsoir à tous

pasquetp
La FAQ du forum apporte souvent des débuts de pistes...

Re : listbox comment enlever doublon de liste?

Je vous remercie de ce lien

toutefois ca me met une erreur "l'indice n'appartient pas a la selection"

Re : listbox comment enlever doublon de liste?

Re

pasquetp
Il faut évidemment adapter la syntaxe à ton classeur ...
Chez toi : For L = 6 To [C65000].End(xlUp).Row
et dans l'exemple du lien que je t'ai donné
For Each c In Sheets("Feuil1").Range("A1:A" & Range("a65536").End(xlUp).Row)
Tu vois ou je veux en venir ?

Ma foi, être un chouia curieux et perspicace, face à une erreur, c'est indolore...😉

Re : listbox comment enlever doublon de liste?

Re

merci de votre reponse

j'ai tenté ce code

PrivateSub UserForm_Initialize()
Dim c As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean

ReDim tablo(1 To 1)
tablo(1) = Cells(1, 1)
For Each c In Sheets("error-report").Range("C6:C" & Range("C65536").End(xlUp).Row)
present = False
For i = 1 To UBound(tablo)
If tablo(i) = c Then present = True
Next i
If Not present Then
ReDim Preserve tablo(1 To UBound(tablo) + 1)
tablo(UBound(tablo)) = c
End If
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i) < tablo(j) Then
temp = tablo(i)
tablo(i) = tablo(j)
tablo(j) = temp
End If
Next j
Next i
Next c

ListBox1.List = tablo

End Sub


La boucle tourne indefiniment.

le code est trop complique a mon niveau

Je vous remercie de l'aide que vous pouvez m'apporter

Re : listbox comment enlever doublon de liste?

j'ai trouvé cette page

https://www.excel-downloads.com/thr...une-liste-mais-triee-et-sans-doublons.135889/

leur code est celui que j'ai employé

de leur cote ca marchemais pas sur le mien

Merci par avance

Re : listbox comment enlever doublon de liste?

je viens de trouver par mes propres moyens

merci de votre aide