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
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