Réorganiser Tableau de chaînes ZA (reverse ordre alphabétique)

Question

J'ai un tableau de chaînes que je dois commander ZA:

Dim FolderFiles() As String 
FolderFiles = ("ABC","ZYX","MNO","EFG") 

je dois trier d'une manière qu'il apparaîtrait comme

Dim FolderFilesOrder() As String 
'Sort here 
FolderFilesOrdered = ("ZYX","MNO", "EFG","ABC") 

La comparaison des 3 premières lettres est correcte s'il y a des restrictions.

Answer 1

Voici une façon de trier le tableau.

Sub test() 

Dim s1 As String, s2 As String 
Dim i As Long, j As Long 
Dim myArrray(3) As String 

myArrray(0) = "ABC" 
myArrray(1) = "ZYX" 
myArrray(2) = "MNO" 
myArrray(3) = "EFG" 

'Sort array in descending 
For i = LBound(myArrray) To UBound(myArrray) 
    For j = i To UBound(myArrray) 
     If UCase(myArrray(j)) > UCase(myArrray(i)) Then 
      s1 = myArrray(i) 
      s2 = myArrray(j) 
      myArrray(i) = s2 
      myArrray(j) = s1 
     End If 
    Next 
Next 

'results in ZYX, MNO, EFG, ABC 

End Sub