Discussion :

[Zarkann]

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 :

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

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 :

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

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

3) dans ComboBox1_Change

Code :

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

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 :

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

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

[jeanmidudu]

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,

[Michel_T]

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)