Generer aléatoirement ... des lettre ! C'est possible ?
Fermé
Beny
-
18 avril 2014 à 22:38
ElementW Messages postés 4816 Date d'inscription dimanche 12 juin 2011 Statut Contributeur Dernière intervention 5 octobre 2021 - 19 avril 2014 à 12:47
ElementW Messages postés 4816 Date d'inscription dimanche 12 juin 2011 Statut Contributeur Dernière intervention 5 octobre 2021 - 19 avril 2014 à 12:47
A voir également:
- Générer lettre aléatoire excel
- Liste déroulante excel - Guide
- Excel mois en lettre ✓ - Forum Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Tirage au sort excel aléatoire sans doublon ✓ - Forum Excel
3 réponses
ElementW
Messages postés
4816
Date d'inscription
dimanche 12 juin 2011
Statut
Contributeur
Dernière intervention
5 octobre 2021
1 225
Modifié par gravgun le 18/04/2014 à 23:21
Modifié par gravgun le 18/04/2014 à 23:21
'lut, oui c'est parfaitement possible et pas trop dur à faire :)
Déjà il faut savoir qu'un caractère correspond à un nombre; pour les caractères Latins de base (dont notre alphabet sans les lettres accentuées), la Table ASCII est utilisée.
Supposons que tu veuilles une lettre majuscule; on part donc de 'A' soit 65.
Après, on génère un nombre aléatoire entre 0 et 25 (pas 26 sinon on pourrait arriver sur ']'), puis on ajoute 65, pour convertir ce nombre en caractère correspondant:
Après pour avoir un code, on enchaine les lettres au hasard puis les concatène:
from human import idiocy
del idiocy
Déjà il faut savoir qu'un caractère correspond à un nombre; pour les caractères Latins de base (dont notre alphabet sans les lettres accentuées), la Table ASCII est utilisée.
Supposons que tu veuilles une lettre majuscule; on part donc de 'A' soit 65.
Après, on génère un nombre aléatoire entre 0 et 25 (pas 26 sinon on pourrait arriver sur ']'), puis on ajoute 65, pour convertir ce nombre en caractère correspondant:
Dim lettre As Char lettre = Chr(Int(25*Rnd()) + 65)
Après pour avoir un code, on enchaine les lettres au hasard puis les concatène:
Dim code As String = ""
For i As Integer = 0 To 9
code = code & Chr(Int(25*Rnd()) + 65)
Next
from human import idiocy
del idiocy
