Activation d'une Combobox dans le ruban (Custom ui)

Broch002

XLDnaute Occasionnel
Bonjour, à tous.

J'ai une combobox dans le ruban Excel, créé par Custom Ui, qui s'initialise lorsqu'on click dessus. la liste défilante étant longue, il est long à ce mettre à jour.
Ne peut-on pas l'activer, une fois pour toute, à l'ouverture du fichier ??

code pour l'activation:

Sub NbItemCombo(control As IRibbonControl, ByRef returnedVal)
returnedVal = Feuil8.Range("A104875").End(xlUp).Row
End Sub

Sub ComboLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
If Feuil8.Range("A1004875").End(xlUp).Row = 0 Then Exit Sub
returnedVal = Feuil8.Cells(index + 1, 1)
End Sub

Code Custom UI:

<tabs>

<tab id="AIRLUX" label="AIRLUX" visible="true">

<group id="SELECTION" label="Selection clients">

<comboBox id="Combo1" label="Clients : " getItemCount="NbItemCombo"
getItemLabel="ComboLabel" onChange="Changeval"
invalidateContentOnDrop="true" />

</group>

Merci de votre aide.

Broch002
 

Discussions similaires

Statistiques des forums

Discussions
312 174
Messages
2 085 942
Membres
103 053
dernier inscrit
Beubax