Melanger une chaine de caractere

Question

Bonjour,,, je suis débutant et je n'arrive pas a resoudre ce probleme....

Je voudrais savoir comment faire pour malanger une chaine de caractere :

ex:    manger >>> negmar

J'ai commencé quelque chose mais mon probleme est que ca remet plusieur fois la meme lettre,,, 

Dim pos As Integer
Randomize
pos = Int((Rnd * Len(Text1)) + 1)
Text2 = Text2 + Mid(Text1, pos, 1)

Merci..

cs_pimousse75 · Answer

Il te suffit de supprimer les lettres brassées en faisant en recuperant ds text1 la partie à gauche de pos et la partie à droite de pos !

LaMoUcHe2002 · Answer

Slt

Merci a toi pimousse mais,,, tu peux être un petit peu plus clair stp,, avec formule stp??

Merci

cs_pimousse75 · Answer

Private Sub Command1_Click()

Dim pos As Integer
Dim i As Integer
Dim text1 As String
Dim text2 As String
'Randomize

text1 = "manger"

For i = 1 To Len(text1)
    MsgBox "Texte Initial :" & text1
    
    pos = Int((Rnd * Len(text1)) + 1)
    text2 = text2 & Mid(text1, pos, 1)
    text1 = Mid(text1, 1, pos - 1) & Mid(text1, pos + 1, Len(text1) - pos + 1)
    
    MsgBox "New Word :" & text2
Next i

End Sub

++

Melanger une chaine de caractere

3 réponses

Discussions similaires