echarlotte
XLDnaute Nouveau
Bonjour à Tous,
Si quelqu'un peu m'aider, car je me prends la tête depuis un petit moment !!
L'objectif de mon programme est de pouvoir afficher une liste triée dans une combobox en fonction d'une checkbox.
Je m'explique : j'ai 2 checkbox (une pour les entrées froides l'autre pour les entrées chaudes) et en fonction de celle qui est cochée ma combobox m'affiche les entrées correspondantes. Avec un tri au préalable car toutes les entrées sont dans la même colonne (colonneD), donc je réalise un tri pour avoir que les entrées (froides ou chaudes) selectionnées.
Mon souci, c'est que quelque soit le choix des entrées, il ne m'affiche que la 1ère entrée.
Donc si vous pouvez m'aider à résoudre ce souci cela serait sympa.
Je vous mets mon petit bout de code.
Merci par avance.
Sub plat()
Dim i, L As Integer
Dim Cell As Range
If Feuil10.CheckBox4.Value = True Then 'je souhaite une entrée froide
Feuil8.Range("$A$1:$I$237").AutoFilter Field:=5, Criteria1:="OUI"
For Each Cel In Feuil8.Range("D2" & [D65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Feuil10.ComboBox1.AddItem Cel
Next Cel
Else
Feuil8.Range("$A$1:$I$237").AutoFilter Field:=5, Criteria1:="NON"
Feuil10.ComboBox1.Clear
For Each Cel In Feuil8.Range("D2" & [D65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Feuil10.ComboBox1.AddItem Cel
Next Cel
End If
End Sub
Si quelqu'un peu m'aider, car je me prends la tête depuis un petit moment !!
L'objectif de mon programme est de pouvoir afficher une liste triée dans une combobox en fonction d'une checkbox.
Je m'explique : j'ai 2 checkbox (une pour les entrées froides l'autre pour les entrées chaudes) et en fonction de celle qui est cochée ma combobox m'affiche les entrées correspondantes. Avec un tri au préalable car toutes les entrées sont dans la même colonne (colonneD), donc je réalise un tri pour avoir que les entrées (froides ou chaudes) selectionnées.
Mon souci, c'est que quelque soit le choix des entrées, il ne m'affiche que la 1ère entrée.
Donc si vous pouvez m'aider à résoudre ce souci cela serait sympa.
Je vous mets mon petit bout de code.
Merci par avance.
Sub plat()
Dim i, L As Integer
Dim Cell As Range
If Feuil10.CheckBox4.Value = True Then 'je souhaite une entrée froide
Feuil8.Range("$A$1:$I$237").AutoFilter Field:=5, Criteria1:="OUI"
For Each Cel In Feuil8.Range("D2" & [D65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Feuil10.ComboBox1.AddItem Cel
Next Cel
Else
Feuil8.Range("$A$1:$I$237").AutoFilter Field:=5, Criteria1:="NON"
Feuil10.ComboBox1.Clear
For Each Cel In Feuil8.Range("D2" & [D65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Feuil10.ComboBox1.AddItem Cel
Next Cel
End If
End Sub