Discussion :

[Albatros182]

J'ai le code suivant, il marche très bien mais je voudrais que le résultat s'affiche dans une case précise.

Pouvez-vous m'aider

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub code_alea()
'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

[anasecu]

Bonjour,

je voudrais que le résultat s'affiche dans une case précise.

If suffit de remplacer 'MsgBox lettre_aleatoire' par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Value = lettre_aleatoire

en remplaçant A1 par l'adresse de ta "cellule précise".

[Albatros182]

Bonjour et merci de ta réponse rapide.

J'ai essayé ce code mais il me mets le message d'erreur :

Erreur d’exécution '1004' : Erreur définie par l'application ou par l'objet

Aurais tu une solution pour régler le problème?

Merci d'avance.

[anasecu]

Bonjour,

Aurais tu une solution pour régler le problème?

C'est sans doute dû à la position de ton code il faut préciser, comme ceci par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets ("Feuil1").Range("A1").Value = lettre_aleatoire

[Albatros182]

Top merci, ça fonctionne.