Discussion :

[Usgpa]

Bonjour à vous tous. Excusez-moi de vous déranger mais j'ai une petite question surement très simple mais je seche là...

En fait j'ai un userform avec un combobox reprenant une liste dont la row source est "B:B" (fixé dans les propriétés du Combobox).

Cependant avant l'ouverture de mon userform j'ai filtré les données de la feuille et dans la combobox je me retrouve avec toutes les données comprises entre les premières et dernières lignes correspondant au filtre.

Si par exemple la donnée qui correspond au filtre est "A" et ques cette valeur est présente dans les lignes 12 et 19, au lieu d'avoir dans ma combobox ces deux valeurs je vais avoir les valeurs des lignes 12,13,14,15,16,17 et 18.

Avez-vous une idée ? Merci d'avance.

[zyhack]

Bonsoir

en premier lieu il faudrait que tu enlève la référence que tu as fixé dans les propriétés du Combobox "B:B" pour qu'il soit possible de le faire par programmation.

ensuite dans l'événement du UserForm Initialize entre ce code qui bien sur sera à adapter suivant tes besoins

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim c As Range
With Worksheets("Feuil1")
  For Each c In .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    ComboBox1.AddItem (c.Value)
  Next
End With
End Sub