Combobox Filtres

[roby]

Bonjour le Forum

J'aimerai que ma combobox liste les "Dispositifs" qui sont encore disponibles (valeur "O"),
Je suis dans un usf et la feuille activée est "PPSMJ" autre que celle ou j'effectue le filtre.
Pour cela j'ai effectué un filtre sur la feuille "Dispositifs" de la manière suivante:

Sub FiltreDispositifs()
Dim DL, Lig As Integer
With Sheets("Dispositifs")
DL = .Range("A65536").End(xlUp).Row
For Lig = 9 To DL
If Cells(Lig, 11) = "N" Then Rows(Lig).Hidden = True
Next
End With
' ComboBox1.List = Range("Dispositifs!E9:E" & DL).SpecialCells(xlCellTypeVisible)
End Sub

Aucun soucis le code effectue bien la tâche (masque les lignes dont la valeur est "N") sur la feuille "Dispositifs".

Ma question:
Comment alimenter ma combobox1 avec les éléments seulement visibles, donc ceux disponibles avec la valeur "O" ?
Le code suivant ne fonctionne pas

ComboBox1.List = Range("Dispositifs!E9:E" & DL).SpecialCells(xlCellTypeVisible)

Dans l'attente, je vous souhaite une bonne fin d'après-midi.

A+ Roby

 

[Pierrot93]

Re : Combobox Filtres

Bonjour,

essaye peut être ainsi si j'ai bien compris :

Sub FiltreDispositifs()
Dim DL, Lig As Integer
With Sheets("Dispositifs")
DL = .Range("A65536").End(xlUp).Row
For Lig = 9 To DL
    If Cells(Lig, 11) = "N" Then Rows(Lig).Hidden = True Else ComboBox1.AddItem Cells(Lig, 5).Value
Next
End With
' ComboBox1.List = Range("Dispositifs!E9:E" & DL).SpecialCells(xlCellTypeVisible)
End Sub

bon après midi
@+

 

[roby]

Re : Combobox Filtres

Re le Forum, Pierrot93

OK j'ai complété d'ou provient la combobox1 (APPSMJ.combobox1.....)
et tout fonctionne

merci a toi

A+
roby