Texte Anagramme

[Magic_Doctor]

Renvoyer, dans un ordre aléatoire, les lettres d'une chaîne de caractères.

Function Anagramme(cadena As String) As String
'Renvoie dans un ordre aléatoire les lettres d'une chaîne de caractères
'- cadena : une chaîne de caractères
'Ex : Romina --> mianoR

Dim i%, x%, Temp$

  Application.Volatile

  Anagramme = cadena
  Randomize
  For i = 1 To Len(cadena)
    x = Int(Rnd() * Len(cadena)) + 1
    Temp = Mid(Anagramme, x, 1)
    Anagramme = Left(Anagramme, x - 1) & Mid(Anagramme, i, 1) & Mid(Anagramme, x + 1, 999)
    Anagramme = Left(Anagramme, i - 1) & Temp & Mid(Anagramme, i + 1, 999)
  Next

End Function