Liste Combobox d'après une autre combobox

Bonjour à tous

Je cherche à alimenter un combobox suivant le choix d'une première combobox

1) dans Usf_initialize j'alimente la première comboxbox avec une plage de cellules fixes

Code:

---

1 2 3 4 5

maplage = "User_Prog!E38:E42" ComboBox1.RowSource = maplage   ComboBox1.Style = fmStyleDropDownList ComboBox1.ListIndex = 0

---

2) toujours dans Usf_initialize j'alimente la deuxième comboxbox depuis une base de données

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Integer   For i = 15 To Sheets("B&D").Range("T65000").End(xlUp).Row ComboBox2 = Sheets("B&D").Range("T" & i) If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("B&D").Range("T" & i) Next i   ComboBox2.Style = fmStyleDropDownList ComboBox2.ListIndex = 0

---

Jusqu’ici tout va bien 8-)

3) dans ComboBox1_Change

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim Comb1 As Variant Comb1 = ComboBox1.Value 'je récupère la valeur de la combobox1       If Comb1 = "Années" Then   Dim i As Integer   For i = 15 To Sheets("B&D").Range("T65000").End(xlUp).Row ComboBox2 = Sheets("B&D").Range("T" & i) If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("B&D").Range("T" & i) Next i ComboBox2.Style = fmStyleDropDownList ComboBox2.ListIndex = 0

---

Ensuite je souhaiterais faire de même pour le moi, le jour etc (sélectionnable dans la combo1) mais le problème c'est que j'ai une erreur 380
"Impossible de définir la propriété Value. Valeur de propriété non valide"
Qui pointe sur :

Code:

---

ComboBox2 = Sheets("B&D").Range("T" & i)

---

Si quelqu'un avais une idée car j'ai testé différente possibilités qui soit me provoque une erreur 380 ou bien une erreur 70 "Accès refusé"

Cordialement Eric

Bonjour,

Je vois plusieurs problèmes probables avec ce genre de manipulation, notamment dans ta ligne que tu indiques en erreur :

- L'utilisation de "ComboBox2" devrait être suivi de ".value", ".list", ou autre selon ce que tu veux en faire
- L'utilisation d'un range à la place d'une valeur de cellule peut poser problème. Si tu tentes d'accéder à la valeur de la cellule (et non pas à ta cellule complète, comprenant sa valeur, ses méthodes et ses paramètres), je te conseille très fortement d'utiliser ".value" ou ".text" selon ce que tu souhaites récupérer

Cdt,

Sans tester, je dirai ceci :
La propriété par défaut d'un objet Combo doit être Value.
Ici tu veux utiliser la méthode AddItem (que tu utilises bien sur la ligne en dessous).
Donc précise la méthode :
ComboBox2.AddItem Sheets("B&D").Range("T" & i)

De manière générale, il est plus propre (plus lisible et moins source de souci) de préciser la propriété et la méthode, même si ce sont celles par défaut.

Autre point : la plage de sheets("B&D") qui s'étend de T15 à Range("T65000").End(xlUp) contient-elle des cellules vides ?
Sinon, remplace : Sheets("B&D").Range("T65000").End(xlUp).Row
par : Sheets("B&D").Range("T15").End(xldown)