Mélanger les mots d'une phrase

Bonjour

J'aimerais savoir si l'on peut mélanger les mots d'une phrase contenu dans une cellule

ex. : cellule B1 - Phrase dans l'ordre

cellule B2 - Phrase (B1) dans le désordre

Merci

bonjour,

une proposition via une fonction personnalisée

Function melangemots(phrase)
    Dim k()
    t = Split(phrase)
    ReDim k(UBound(t))
    For i = 0 To UBound(t)
        k(i) = i
    Next i
    For i = 0 To UBound(t)
        q = aleatoire(0, UBound(t) - i)
        a = k(q)
        k(q) = k(UBound(t) - i)
        mm = mm & " " & t(a)
    Next i
    melangemots = Trim(mm)
End Function
Function aleatoire(borne_inférieure, borne_supérieure)
    aleatoire = Int(Rnd() * (borne_supérieure - borne_inférieure + 1)) + borne_inférieure
End Function

Merci à toi h2so4.

C'est exactement ce que je cherchais il me suffit maintenant de le convertir pour excel 2003.

oui version excel 2003 française

Bonsoir,

Il n’y a rien à convertir ce code devrait fonctionner avec ta version 2003

Bsr

Merci

le code fonctionne pour excel 2003