Problème ajout combobox

[patoq]

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]

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]

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]

Re : Problème ajout combobox

bonjour patoq

explique ce que tu veus faire perso pas compris??

 

[patoq]

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