Filtrer données avec Comb Box
Bonjour,
J'ai créé un tableau ou j'ai mis en en-tête 1 comboBox dans chaque colonne pour filtrer le contenu des rangées. Je suis capables de remplir les combo box, mais pas d'appliquer le filtre. C'est-à-dire que quand je sélectionne une valeur du comboBox, elle s'affiche dedans mais le reste du tableau n'est pas changée. Aussi j'aimerais savoir comment faire pour afficher une valeur par défaut dans le combo box (je veux qu'il soit écrit "Select a port"). Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub CB_loadPort_Change()
With Sheets("calculs")
premierPort = .Range("AA1").Address
dernierPort = .Range(premierPort).End(xlDown).Address
ports = .Range(premierPort & ":" & dernierPort)
End With
With ActiveSheet.CB_loadPort
For Each portName In ports
.AddItem portName
Next portName
.Style = fmStyleDropDownList
.AutoSize = False
End With
End Sub |
Merci !
