Partager via

Permuter les colonnes d’une zone de liste multicolonne

  • Article

L’exemple suivant permute les colonnes d’une multi-colonne ListBox. L’exemple utilise la propriété deliste de deux façons:

  1. Pour accéder aux valeurs individuelles et les échanger dans laListBox. Dans cette utilisation, Liste a la forme d’indices pour désigner les ligne et colonne d’une valeur spécifiée.

  2. Pour charger initialement laListBox avec des valeurs à partir d’une matrice. Dans cette utilisation,Liste n’a aucune forme d’indices.

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. Assurez-vous que le formulaire contienne uneListBox nommée ListBox1 et unbouton de commande nommé CommandButton1.

Dim Listbox1 
Dim MyArray(6, 3) 
 
Sub Item_Open 
 Dim i 
 Set Listbox1 = Item.GetInspector.ModifiedFormPages("P.2").Listbox1 
 
 Listbox1.ColumnCount = 3 
 For i = 0 to 5 
 MyArray(i, 0) = i 
 MyArray(i, 1) = Rnd 
 MyArray(i, 2) = Rnd 
 Next 
 
 Listbox1.List() = MyArray 
End Sub 
 
Sub CommandButton1_Click 
 Dim i 
 Dim Temp 
 
 For i = 0 to 5 
 Temp = Listbox1.List(i, 0) 
 Listbox1.List(i, 0) = Listbox1.List(i, 2) 
 Listbox1.List(i, 2) = Temp 
 Next 
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.