initialise un combobox

bonjour à tous

bizare, j'ai plus acces au quote, smiley,.... lors de l'ecriture des message ????

bon

j'ai 3 optionbutton qui vont remplir , en fonction du choix fait, un meme combobox par le code suivant:
(le code et donc le critere de rechercher varie en fonction du button, bien sur)!
--------------------------------------------

Code:

---

1 2 3 4 5 6 7 8

Dim j As Long For j = 4 To Sheets("feuil2").Range("m65536").End(xlUp).Row ComboBox13 = Sheets("feuil2").Range("m" & j) If ComboBox13.ListIndex = -1 Then If Sheets("feuil2").Range("o" & j) = "" Then ComboBox13.AddItem Sheets("feuil2").Range("m" & j) End If   Next j

---

-------------------------------------------

par defaut :
c'est le critere du boouton 1 qui remplit le combobox avec le code ci-dessus.
si je selectionne le bouton2
le continue du combobox ne varie pas ? j'ai testé le code il est bon !
Je pense qu'il faut initialise le combobox (le mettre à 0)

j'ai essaye
ComboBox13.Clear
Mais plus de succes !!!!!!!!!!!!!

Bonjour,

lorsque tu écris :

Code:

---

ComboBox13 = Sheets("feuil2").Range("m" & j)

---

tu provoques une sélection.
Cette sélection est sans effet aucun (bien évidemment) lors de la 1ère série de additems, puisqu'aucun article n'existe encore.

Mais voilà :

la même instruction, lors de la deuxiéme "série" de additem (option2) , correspond cette fois-ci à un artricle déjà présent ...(Sheets("feuil2").Range("m" & j) ) et le sélectionne donc !!!

Or, elle est suivie de :

Code:

---

If ComboBox13.ListIndex = -1 Then

---

qui veut dire ce qu'elle veut dire, à savoir : si aucun article n'est sélectionné, alors ..."

Et comme l'article Sheets("feuil2").Range("m" & j) est précisément sélectionné, rien ne s'exécute, ma foi ....:lol: ... selon ton propre voeu ...

Alors ?

Réfléchis (un tout petit peu) et corrige/ote ce qui ne devrait pas être là ...

bonjour
Oui en effet apres qql reflexion j'ai pu resoudre ce point.

Merci