Magic_Doctor
XLDnaute Barbatruc
Renvoyer, dans un ordre aléatoire, les lettres d'une chaîne de caractères.
VB:
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