Editeur de numéros de series

Question

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

h2so4 · Answer

Vérifie que la cellule A1 n'est pas protégée contre l'écriture. sinon mets-nous ton classeur...