lettre aléatoire

[Hervé]

Salut tlm.

Bon pour le boulot je dois créer des numéros aléatoires du style 6825XD25F (je sais on peut trouver plus simple comme numéro, mais je bosse pour des gens compliqués). aucun souci pour les numéros grâce à la formule aléa; par contre pour les lettres je coince.

Quelqu'un aurais-t'il déjà rencontré ce problème et pourrais m'aidé.

d'avance je vous remercie pour votre aide

bye bye

 

[chris]

Bonjour
Gardes alea et combine avec car pour utiliser la valeur ascii des caractères.
=CAR(ALEA.ENTRE.BORNES(65;90))
Chris

 

[andré]

Salut,

Pour les lettres, il faut employer la fonctions ALEA.ENTRE.BORNES et travailler sur la code de la lettre, sachant que pour les majuscules il peut varier de 65 (A) à 90 (Z).

=CAR(ALEA.ENTRE.BORNES(65;90))

Il faut vérifier si cette fonction ne fait pas partie des macros complémentaires, faute de quoi il y a lieu de les activer (sous Outils / Utilitaire d'analyse)

Ândré

 

[Hervé]

Merci à chris et andré pour vos réponse rapide et efficace.

 

[Hervé]

bonjour a tlm

je reviens à la charge pour les lettres, les réponses me vont bien mais je souhaiterais connaitre le code en vba. car au final une macro sera plus efficace pour mon petit boulot.

d'avance merci.

bye bye

 

[michel]

bonsoir Hervé , Chris et André

par macro tu peux essayer

Sub lettreAleatoire()
Dim Cible As Byte
Randomize 'Initialisation générateur de nombres aléatoires
Cible = Int((26 * Rnd) + 1)
MsgBox Chr(Cible + 64)
End Sub


bonne soiree
michel

 

[Hervé]

bonsoir,

Merci Michel pour ton aide, ça marche impeccable.

a+ hervé