ComboBox

[dom]

Bonjour,
Dans un classeur j'ai une feuille A qui contient un contrôle ComboBox qui devrait afficher une plage de 5 colonnes contenue sur la feuille B.

En affectant B!A2:E60 à la propriété RowSource du contrôle, tout marche bien. Or, comme la zone source s'allonge lorsque des données sont ajoutées, j'ai voulu utiliser ceci :

Dim DerCell As String
DerCell = Range("E1"). end(xlDown).Address
cbComboBox.RowSource = "A2:" & DerCell

Ma question est : dans quelle procédure placer le code, sachant que le cbComboBox est situé sur la feuille de calcul A et non pas dans un UserForm ????????

Après des heures passées là-dessus, à l'aide !!!

 

[@Christophe@]

Bonsoir,

Mets tous simplement dans l'évenement DropButtonClick de ta combo le code suivant:

Private Sub ComboBox1_DropButtonClick()
Dim DerCell As String

DerCell = Sheets("B").Range("E1").End(xlDown).Address
ComboBox1.ListFillRange = "B!E2:" & DerCell
End Sub


Bonne chance

@Christophe@

 

[@+Thierry]

Bonsoir @Xtof@, Dom, le Forum

Oui j'étais très surpris de lire Dom avec un "RowSource" pour une ComboBox ActiveX sur une Feuille, car d'avance sans tester, çà n'est pas supporté (du moins jusqu'à Excel 2000)...

Mais Christophe a déjà correctement répondu avec "ListFillRange", c'est çà les mystères des propriétés telles que les définissent les développeurs de MS !!!

Bonne soirée
@+Thierry