Discussion :

[Capucile]

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 )

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

Code :

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

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

[casefayere]

Bonojur,

Je ne comprends pas trop

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

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

[Capucile]

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

[casefayere]

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

[Capucile]

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

[ucfoutu]

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 )

[Capucile]

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