Pour un générateur de mot de passe

Bonjour,

Je suis à la recherche d'une formule ou tableau me permettant de mélanger aléatoirement le contenu d'une cellule Excel, j'ai bien vu des formules mélanger ma ca ne fonctionne pas !

Merci d'avance

Bonjour Jean-Michel

Dans la partie téléchargements de ce site
https://www.excel-pratique.com/fr/telechargements/utilitaires/generateur-de-mot-de-passe-no216

A+

Merci de votre réponse

oui j'ai vu mais j'aimerais mélanger aléatoirement lette par lette une phrase perso dans une cellule

bonjour,

une proposition via une fonction personnalisée à mettre dans un module vba

Function melange(texte)
    s = texte
    For i = 1 To Len(texte) * 2
        q1 = Application.RandBetween(1, Len(texte))
        q2 = Application.RandBetween(1, Len(texte))
        a = Mid(s, q1, 1)
        Mid(s, q1, 1) = Mid(s, q2, 1)
        Mid(s, q2, 1) = a
    Next i
    melange = s
End Function

à utiliser comme une fonction standard excel (par exemple)

=melange(A1)

Bonjour à tous !

Pour le "fun" et sous Microsoft 365, une proposition (formule pour une valeur initiale en A1) :

=LET(t;A1;n;NBCAR(t);JOINDRE.TEXTE(;;TRIERPAR(STXT(t;SEQUENCE(n);1);TABLEAU.ALEA(n);1)))

------> Pour une aide adaptée merci de préciser, dans votre profil, la nature de votre Excel ( 2019 ? 2021 ? 365 ? ...)

quand je me sert de mélange cela me donne : #NOM?

A titre info j'ai un office perso et petite entreprise 2019

Je ne connais rie au VBA

Déso pour mon ignardise !!!!

Bonjour à tous de nouveau !

Jean michel orieme a écrit :

A titre info j'ai un office perso et petite entreprise 2019

Cette information, pour la rendre visible en permanence à tous, est à porter dans votre profil.

(Ma proposition, nécessitant M365, sera inopérante sous votre environnement 2019)

Donc aucune possibilité avec office 2019 ?

Bonjour,

quand je me sers de mélange cela me donne : #NOM?

Pour pouvoir utiliser la fonction personnalisée, voici comment faire.

1. copier le code qui se trouve sur le forum, dans ma première réponse (sélectionner le code, puis ctrl-C).

2. aller dans excel, dans le classeur dans lequel on souhaite utiliser la fonction.

3. faire alt-F11, cela ouvre une fenêtre de gestion du code VBA.

4. faire Insérer->module

5. coller le code (ctrl-V)

6. faire alt-F11, on revient au classeur excel

7. la fonction est disponible pour cette session

8. faire fichier-> sauver sous, choisir "avec macros" (extension .xlsm), pour sauvegarder le classeur avec la fonction personnalisée pour une utilisation ultérieure

Voici un fichier avec la fonction mise à disposition

ou puis je trouver ce code ?

rebonjour,,

ou puis je trouver ce code ?

désolé, j'aurais dû préciser. Il se trouve dans ma première réponse. le revoici.

Function melange(texte)
    s = texte
    For i = 1 To Len(texte) * 2
        q1 = Application.RandBetween(1, Len(texte))
        q2 = Application.RandBetween(1, Len(texte))
        a = Mid(s, q1, 1)
        Mid(s, q1, 1) = Mid(s, q2, 1)
        Mid(s, q2, 1) = a
    Next i
    melange = s
End Function

merci j'essai de ce pas !!