alphanumeric aleatoire

  • Initiateur de la discussion Initiateur de la discussion FDinguirard
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

FDinguirard

Guest
Réponse à Christophe :

Vous voulez des lettres majuscules, des lettres minuscules, des chiffres.

la formule ci-dessous génère un alphanum aléatoire composé de (un chiffre, une majuscule, une minuscule) séquence répétée trois fois :

=CONCATENER(CAR(ARRONDI((ALEA()*9+48);0));CAR(ARRONDI((ALEA()*25+65);0));CAR(ARRONDI((ALEA()*25+97);0));CAR(ARRONDI((ALEA()*9+48);0));CAR(ARRONDI((ALEA()*25+65);0));CAR(ARRONDI((ALEA()*25+97);0));CAR(ARRONDI((ALEA()*9+48);0));CAR(ARRONDI((ALEA()*25+65);0));CAR(ARRONDI((ALEA()*25+97);0)))

inconvénient : les majuscules sont toujours à la même place etc...

Comme excel est limité dans la longueur des formules, et pour ne pas utiliser de vba histoire de compliquer le pb, on va prendre un nombre P aléatoire entre 1 et 9, et lire la P° position de ce premier alphanum aléatoire. Hélas, il faut passer par plusieurs cellules.

Pour générer un alphanum aléatoire de N caractères, copiez la formule suivant dans N cellules :
=STXT(CONCATENER(CAR(ARRONDI((ALEA()*9+48);0));CAR(ARRONDI((ALEA()*25+65);0));CAR(ARRONDI((ALEA()*25+97);0));CAR(ARRONDI((ALEA()*9+48);0));CAR(ARRONDI((ALEA()*25+65);0));CAR(ARRONDI((ALEA()*25+97);0));CAR(ARRONDI((ALEA()*9+48);0));CAR(ARRONDI((ALEA()*25+65);0));CAR(ARRONDI((ALEA()*25+97);0)));CAR(ARRONDI((ALEA()*8+49);0));1)

Puis dans votre cellule cible copiez la formule
=concatener(cellule1;cellule2;cellule3....celluleN)

voir exemple joint.

Merci pour l'exercice ! (à quoi ça sert ?)
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
2 K
Réponses
7
Affichages
45 K
Retour