Combobox

Valérie · 27 Avril 2005

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é · 27 Avril 2005

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

Combobox

Valérie

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires

Combobox

Valérie

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency