Méthode CommandBarComboBox.RemoveItem (Office)

Article
04/07/2023

Cette méthode supprime un élément du contrôle CommandBarComboBox.

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. RemoveItem (Index)

Expression Variable qui représente un objet CommandBarComboBox .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Obligatoire	Integer	Élément à supprimer de la liste.

Exemple

Cet exemple montre comment déterminer si la zone de liste modifiable contient plus de trois éléments. Si tel est le cas, le deuxième élément de la liste est supprimé, le style de la liste est modifié et une nouvelle valeur est affectée. Il définit également la propriété Tag de l’objet parent (l’objet CommandBarControl ) pour indiquer que la liste a changé.

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 
    .AddItem "View News", 4 
    .Caption = "Stock Data" 
    .DescriptionText = "View Data For Stock" 
End With 
Set myControl = myBar.Controls(1) 
With myControl 
    If .ListCount > 3 Then 
        .RemoveItem 2 
        .Style = msoComboNormal 
        .Text = "New Default" 
         Set ctrl = .Parent 
    End If 
End With

Remarque

Cette propriété échoue lorsqu'elle est appliquée à des contrôles autres que les zones de liste.

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