combo box : Accès refusé

Bonjour,

Voici mon petit problème...

Suivant la valuer d'une combobox (euh mettons cbb1) dont les deux valeurs sont bien définies(oui/non) je complète la liste d'un combobox (cbb2) avec des valeurs différentes... (j'espère que c'est clair :roll:)

Pour cela, lors du changement de valeur de cbb1, le code suivant est appellé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Cbb1_Change()   'création de la liste: If Cbb1.Value = "oui" Then For j = 5 To 900 If (Worksheets("123").Cells(j, 3).Value <> "") Then cbb2.AddItem Worksheets("Metier - CI").Cells(j, 3).Value   End If Next j End If   end sub

---

Et la lors de l'execution : Acces refusé en pointant sur la ligne additem! J'ai cherché dans les proprietés (sous Excel) de la cbb2 mais rien ni fait...

En fait l'idée c'est juste de créer une liste à partir d'une plage en virant les cellules vides...

Quelqu'un à une idée?

En tout cas merci d'avance

Bonojur,

Je ne comprends pas trop

Citation:

---

If (Worksheets("123").Cells(j, 3).Value <> "") Then
cbb2.AddItem Worksheets("Metier - CI").Cells(j, 3).Value

---

pourquoi (Worksheets("123") et Worksheets("Metier - CI")

En fait j'ai oublié de changé le nom de la worksheet ...
On peut remplacer partout par worksheet("123")

Je viens de faire une simulation et je n'ai pas eu de problemes en reprenant ton code et rectifiant les noms de feuilles

je comprends pas d'ou ca peut venir...
De ma combo box?
ou de ma version d'Excel? (2003SP2)?

Bonjour,

Ta combobox ne serait-elle pas par hasard liée à une source de données ?

Si tel est le cas, en effet ===>> bernique pour additem (bien évidemment )

Bonjour,

merci pour la réponse rapide !
dernière question alors : où puis-je voir que la combobox est liée ?
Si oui ça veut donc dire qu'on ne peut pas faire de additem, c'est ça ?

Merci

Ben...

- Propriété DataSource = ?
- Propriété Datafiled = ?

et si ces propriétés contiennent quelque chose, ce ne peut être que le résultat de TA volonté !

Et si c'est lié, c'est ma foi lié ... et ce qui est lié ne peut être transformé, nbi par ajout, ni par modification, etc... (du moins en ce qui concerne les articles de ta combobox, puisqu'elle ne peut être que le reflet de tes données existantes !)

En d'autres termes : crois-tu qu'il te serait possible d'ajouter à l'image retournée par un miroir l'image d'un objet qui n'existerait pas devant le miroir ? ... réfléchis donc (sans jeu de mots sur le verbe réfléchir, bien sûr ...;)).

Bonjour,

Vous avez la réponse de Ucfoutu qui est sans doute l'explication.

Par contre, sauf si j'ai manqué quelque chose dans les différentes réponses, on ne sait pas si votre ComboBox a été créé sur une feuille à partir de la barre d'outils "Formulaires" ou "Boite à outils contrôles" ou sur un Userform ?

Car si le principe est à peu près le même, les termes employés peuvent être différents.

Pour un ComboBox créé sur une feuille à partir de "Boites à outils contrôles", si dans la propriété "ListFillRange" une plage est indiquée vous ne pouvez pas la mettre à jour par votre code. Il faut supprimer cette plage dans la propriété.

Jacques-Jean, ucfoutu,

Merci pour vos réponses! Ma combo-box est bien créee par la boite à outils contrôle et la propriété "ListFillRange" est bein vide...

:?

C'est louche non?

Bon pour info, j'avais simplement un problème avec le nom de ma combo box du coup je pense que le programme VBA ne retrouvait pas l'objet auquel je fesait référence dans mon code...

Merci du coup de main :D

a +