XL 2010 Trier, en VBA, un Array par ordre alphabétique

[Magic_Doctor]

Bonjour,

Je me heurte à un problème apparemment simple.
J'ai un Array :
Liste = Array("jaune", "vert", "orange", "blanc", "rouge", "noir", "fuchsia", "marron")

Comment le trier par odre alphabétique, afin d'obtenir :
Liste = Array("blanc", "fuchsia","jaune", "marron", "noir", "orange", "rouge", "vert")

Merci d'avance pour toute réponse.

 

[laurent950]

Bonjour @Magic_Doctor

A l'aide d'une REGEX :

Function DeAccent(s As String) As String
Dim Matches As Object
Dim Match As Object
Dim Reg As Object
    Set Reg = CreateObject("VBScript.RegExp")
Const sAccents As String = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const sNoAccents As String = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
'
      Reg.MultiLine = True: Reg.IgnoreCase = False: Reg.Global = True: Debug.Print Reg.test(s)
      Reg.Pattern = "(.)"
      Reg.Pattern = Mid(Reg.Replace(sAccents, "|$1"), 2)
      Set Matches = Reg.Execute(s)
          For Each Match In Matches
            s = Replace(s, Match, Mid(sNoAccents, InStr(1, sAccents, Match, 0), 1))
          Next Match
' libération d'objets
    Set Matches = Nothing
    Set Match = Nothing
    Set Reg = Nothing
  DeAccent = s
End Function