Astuce VBA : générer un code aléatoirement


Voici le code à utiliser pour générer une code aléatoire de 10 caractères :

Sub code_aleatoire()

    'www.excel-pratique.com/fr/astuces_vba/generer_codes_aleatoires.php
    Randomize
 
    carac = "ABCD1234"
    code_alea = ""
 
    For i = 1 To 10 '10 = longueur du code
        nombre_aleatoire = Int(Len(carac) * Rnd) + 1
        code_alea = code_alea & Mid(carac, nombre_aleatoire, 1)
    Next
 
    MsgBox code_alea
   
End Sub

Pour mieux comprendre comment générer une chaîne de caractères aléatoirement (par exemple : un n° de référence, un mot de passe, un code), consultez le tutoriel vidéo disponible sur le blog Excel-Pratique :

Vidéo

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