Partager via

Spécifier la colonne dans une zone de liste à plusieurs colonnes pour stocker les données du contrôle

  • Article

L’exemple suivant montre comment la propriété BoundColumn influence la valeur d’un contrôle ListBox. L’utilisateur peut choisir de définir la valeur de la ListBox sur la valeur d’index de la ligne spécifiée ou sur une colonne de données spécifiée de la ListBox.

Pour utiliser cet exemple, copiez-en le code vers l’éditeur de script d’un formulaire. Pour exécuter le code, vous devez ouvrir le formulaire afin d’activer l’événement Open. Vérifiez que le formulaire contient :

  • un contrôle ListBox nommé ListBox1 ;

  • Une étiquette nommée Label1.

  • Trois contrôles OptionButton nommés OptionButton1, OptionButton2 et OptionButton3.

Dim Listbox1 
Dim OptionButton1 
Dim OptionButton2 
Dim OptionButton3 
Dim Label1 
 
Sub Item_Open 
 Set Listbox1 = Item.GetInspector.ModifiedFormPages("P.2").Listbox1 
 Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton1 
 Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton2 
 Set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton3 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Label1 
 
 Listbox1.ColumnCount = 2 
 Listbox1.AddItem "Item 1, Column 1" 
 Listbox1.List(0, 1) = "Item 1, Column 2" 
 Listbox1.AddItem "Item 2, Column 1" 
 Listbox1.List(1, 1) = "Item 2, Column 2" 
 Listbox1.Value = "Item 1, Column 1" 
 OptionButton1.Caption = "List Index" 
 OptionButton2.Caption = "Column 1" 
 OptionButton3.Caption = "Column 2" 
 OptionButton2.Value = True 
End Sub 
 
Sub OptionButton1_Click 
 Listbox1.BoundColumn = 0 
 Label1.Caption = Listbox1.Value 
End Sub 
 
Sub OptionButton2_Click 
 Listbox1.BoundColumn = 1 
 Label1.Caption = Listbox1.Value 
End Sub 
 
Sub OptionButton3_Click 
 Listbox1.BoundColumn = 2 
 Label1.Caption = Listbox1.Value 
End Sub 
 
Sub Listbox1_Click 
 Label1.Caption = Listbox1.Value 
End Sub

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.