Combobox en cascade Bug

[Florian53]

Bonjour à tous,

J'ai récupéré un code afin de réaliser 2 combobox en cascades :

Sur le 1er combobox, j'ai 5 choix et les 3 premiers fonctionnent bien ( c'est à dire alimente la combobox N°2) mais pas les 2 autres. Je n'arrive pas à comprendre pourquoi .


Merci à vous

 

[Dranreb]

Bonjour.
Essayez comme ça :

Private Sub ComboBox1_Change()
Dim NomRange As String, SsLst As Range
If ComboBox1.Value = "" Then Exit Sub
ComboBox2.Clear
NomRange = CaracSpec(ComboBox1.Value)
If NomDefini(NomRange) Then
   Set SsLst = Range(NomRange)
   If SsLst.Rows.Count > 1 Then ComboBox2.List = SsLst.Value Else ComboBox2.List = Array(SsLst.Value)
Else
    ComboBox2.AddItem """Aucun centre de coût"""
End If
End Sub

 

[Florian53]

impec sa fonctionne, pourquoi l'autre code en fonctionnait pas ?

 

[Dranreb]

parce qu'il faut affecter un tableau à la propriété List d'une ComboBox. Or la propriété Value d'un Range représentant une seule cellule est un Variant ne contenant pas de tableau.