J'ai le code suivant, il marche très bien mais je voudrais que le résultat s'affiche dans une case précise.
Sub code_alea()
'www.blog-excel.com/generer-code-aleatoire
Randomize
carac = "ABCD1234" 'définir les caractères à utiliser dans le code
lettre_aleatoire = ""
For i = 1 To 10 'déterminer le nombre de chiffre ou lettre
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)
Next
MsgBox lettre_aleatoire
End Sub
J'ai deja essayé le code suivant :
Range("A1").Value = lettre_aleatoire
Il m'affiche le message :
"Erreur d’exécution '1004' : Erreur définie par l'application ou par l'objet"
Pouvez vous m'aider
merci