Dans cette nouvelle vidéo je vous montrerai comment générer un code aléatoire (n° de référence, mot de passe, texte, etc.) à l’aide d’une macro.

 

Pour cette démonstration, je vais partir de la macro qui génère un nombre aléatoire et l’adapter pour générer une chaîne de caractères à la place du nombre.


Sub aleatoire()
 
    Randomize
 
    nombre_aleatoire = Int(50 * Rnd) + 1
 
    MsgBox nombre_aleatoire
 
End Sub

 

Si ce code n’est pas clair pour vous, commencez par lire l’article qui explique comment générer un nombre aléatoire avant de poursuivre …

Générer une chaîne de caractères aléatoirement :

 

Je vous mets également à disposition la copie du dernier code VBA de la vidéo :

Sub code_alea()
    'www.blog-excel.com/generer-code-aleatoire
    Randomize
 
    carac = "ABCD1234"
    lettre_aleatoire = ""
 
    For i = 1 To 10
        nombre_aleatoire = Int(Len(carac) * Rnd) + 1
        lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)
        If i = 5 Then lettre_aleatoire = lettre_aleatoire & "-"
    Next
 
    MsgBox lettre_aleatoire
End Sub