Problème ajout combobox

patoq · 6 Février 2013

Bonjour le forum,

Je viens vers vous car j'ai un petit soucis concernant le remplissage d'un combobox.

Dans le fichier joint, le remplissage du combo se passe très bien ; cependant si j'ajoute une catégorie dans la cellule C4, le résultat est "louche" (je me retrouve avec un "blanc" entre les 2 premiers items du combo).

Voici mon fichier et merci pour l'aide que vous m'apporterez.

Cdt

laetitia90 · 6 Février 2013

Re : Problème ajout combobox

bonjour patoq
2 methode parmi tant d'autres
la premiere basique

Dim c As Range
For Each c In Range("c4:c" & Cells(Rows.Count, 3).End(xlUp).Row)
ComboBox1 = c
If ComboBox1.ListIndex = -1 And ComboBox1 <> "" Then ComboBox1.AddItem c
Next c

avec un dico

Dim c As Variant, m As Object
Set m = CreateObject("Scripting.Dictionary")
For Each c In Range("c4:c" & Cells(Rows.Count, 3).End(xlUp).Row)
If Not m.Exists(c.Value) And c <> "" Then m.Add c.Value, c.Value
Next c
ComboBox1.List = m.Items

patoq · 6 Février 2013

Re : Problème ajout combobox

Bonsoir Laetitia et merci encore, ça fonctionne (j'ai pris la méthode dico) .

Par contre je n'arrive pas à voir ce qui cloche dans mon fichier de base.

Cdt

laetitia90 · 7 Février 2013

Re : Problème ajout combobox

bonjour patoq

explique ce que tu veus faire perso pas compris??

patoq · 7 Février 2013

Re : Problème ajout combobox

bonjour laetitia, bonjour le forum

Ta méthode fonctionne nickel, je voulais juste comprendre pourquoi la méthode d'alimentation d'origine de mon combo "clochait".

Merci encore de ta solution

Cdt

Problème ajout combobox

patoq

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

patoq

XLDnaute Occasionnel

laetitia90

XLDnaute Barbatruc

patoq

XLDnaute Occasionnel

Discussions similaires