Comment trier un tableau de chaînes en VBA

Instructions

1. Lancez Microsoft Excel, cliquez sur l'onglet "Developer", puis cliquez sur "Visual Basic" pour ouvrir l'éditeur Visual Basic. Créer une nouvelle procédure sous en ajoutant le code suivant:

   Private Sub SortVBAArray ()

2. Créer votre tableau de chaînes et d'ajouter dix valeurs à elle:

   Dim dataArray (10) As String
   dataArray (0) = "John"
   dataArray (1) = "Zackari"
   dataArray (2) = "Sam"
   dataArray (3) = "Adam"
   dataArray (4) = "Bob"
   dataArray (5) = "Kitzia"
   dataArray (6) = "Daniel"
   dataArray (7) = "Oscar"
   dataArray (8) = "Alan"
   
   
   
   dataArray (9) = "Yarexli"

3. Appel de la procédure de sous qui trier les valeurs dans le tableau et mettre fin à la procédure:

   Appelez sortArray (dataArray)

   End Sub

4. Créez la procédure de sous-marin qui va trier le tableau de chaînes dans l'ordre croissant et afficher les résultats par le biais de la fenêtre immédiate:

   Sous sortArray (tmpArray () As String)

   Dim firstIdx As Integer
   Dim lastIdx As Integer
   Dim xCntr As Integer
   Dim yCntr As Integer
   Temp Dim As String
   Liste Dim As String
   firstIdx = LBound (tmpArray)
   lastIdx = UBound (tmpArray)
   Pour xCntr = firstIdx Pour lastIdx - 1
   
   
   Pour yCntr = xCntr + 1 Pour lastIdx
   Si tmpArray (xCntr)> tmpArray (yCntr) Ensuite,
   Temp = tmpArray (yCntr)
   tmpArray (yCntr) = tmpArray (xCntr)
   tmpArray (xCntr) = Temp
   Fin si
   Suivant yCntr
   Suivant xCntr
   Pour xCntr = 1 Pour UBound (tmpArray)
   Liste = Liste vbCrLf tmpArray (xCntr)
   Suivant
   Liste Debug.Print

   End Sub

5. Cliquez sur le premier sous-procédure et appuyez sur "Ctrl" + "G" pour afficher la fenêtre Exécution. Appuyez sur "F5" pour exécuter le programme et afficher les résultats.