Discussion :

[oscar.cesar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!!!!!!!!!!!

[ucfoutu]

Bonjour,

lorsque tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .... ... selon ton propre voeu ...

Alors ?

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

[oscar.cesar]

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

Merci