Combobox

[Valérie]

Bonjour,

Comment éviter les doublons avec un combobox.
j'utilise la formule :

ComboBox1.AddItem 'S75LC-VB' pour afficher les infos dans mon combobox, mais j'ai automatiquement des doublons.


Merci d'avance

 

[Hervé]

Bonjour

j'ai pas compris, si tu rentres les item de ta combobox en dur dans ton code par additem, comme tu le précises, tu ne devrais pas avoir de doublons, non ????

Par contre ce code te renvoi les données de la colonne A dans une combobox, sans avoir de doublons :

Private Sub UserForm_Initialize()
Dim c As Range
Dim i As Integer
Dim Colnom As Collection
Set Colnom = New Collection

On Error Resume Next
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
Colnom.Add c.Text, c.Text
Next c

For i = 1 To Colnom.Count
ComboBox1.AddItem Colnom(i)
Next i
End Sub

Salut