Combobox en cascade Bug
- Initiateur de la discussion Florian53
- Date de début
Dranreb
XLDnaute Barbatruc
Bonjour.
Essayez comme ça :
Essayez comme ça :
VB:
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 Subimpec sa fonctionne, pourquoi l'autre code en fonctionnait pas ?
Dranreb
XLDnaute Barbatruc
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.
Discussions similaires
- Question
- Résolu(e)
- Résolu(e)
