Propriété CommandBarComboBox.ListCount (Office)

Article
04/07/2023

Renvoie le nombre d'éléments de liste dans un contrôle CommandBarComboBox. En lecture seule.

Remarque

L’utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par le nouveau composant ruban de l’interface utilisateur Microsoft Office Fluent. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.

Syntaxe

expression. ListCount

Expression Variable qui représente un objet CommandBarComboBox .

Exemple

Cet exemple montre comment vérifier le nombre d’éléments dans la zone de liste déroulante de la barre de commandes personnalisée. Si la procédure ne produit pas trois éléments dans la liste, l’exemple affiche un message informant l’utilisateur que la zone de liste modifiable est peut-être endommagée et lui demande de réinstaller l’application.

Set myBar = CommandBars _ 
    .Add(Name:="Custom", Position:=msoBarTop, _ 
    Temporary:=True) 
With myBar 
    .Controls.Add Type:=msoControlComboBox, ID:=1 
    .Visible = True  
End With 
With CommandBars("Custom").Controls(1) 
    .AddItem "Get Stock Quote", 1 
    .AddItem "View Chart", 2 
    .AddItem "View Fundamentals", 3 
    .Caption = "Stock Data" 
    .DescriptionText = "View Data For Stock" 
End With 
If CommandBars("Custom").Controls(1).ListCount _ 
     > 4 Then 
MsgBox ("ComboBox appears to be damaged." & _ 
     " Please reinstall.") 
End If

Voir aussi

Membres de l’objet CommandBarComboBox

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via