Générer une référence alpha-numérique, aléatoire et formater.
macspeed - - Dernière réponse :
ucfoutu
Modérateur Dernière intervention
11 avril 2018
- 8 mars 2017 à 08:15
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
A voir également:
- Excel vba random
- Vba random - Meilleures réponses
- Vba random string - Meilleures réponses
- Générateur de mot de passe [aleatoirement ou par algorithme + decodage] [nombres, lettres (minuscul - Codes sources - Visual Basic / VB.NET (Sécurité)
- ASP / ASP.NET : Cryptage alpha numérique - CodeS SourceS - Guide
- Génération d'un identifiant unique aléatoire - Codes sources - ASP / ASP.NET (Chaînes de caractères)
- Générer un mot de passe aléatoire - Codes sources - Delphi / Pascal (API)
- Générer un mot de passe aléatoirement - Codes sources - Delphi / Pascal (Sécurité)
5 réponses
/bbace22ccee54c49a931e47acf10dd0d/auth-avatar/5a3179e8d5625)
- Messages postés
- 25026
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Bonjour,
En VBA ?
As tu regardé les fonction de random ?
Une simple recherche sur le net donne pleins d'exemples .....
En voici un:
A adapter à tes besoins bien entendu....
En VBA ?
As tu regardé les fonction de random ?
Une simple recherche sur le net donne pleins d'exemples .....
En voici un:
Function RandomString(cb As Integer) As String
Randomize
Dim rgch As String
rgch = "abcdefghijklmnopqrstuvwxyz"
rgch = rgch & UCase(rgch) & "0123456789"
Dim i As Long
For i = 1 To cb
RandomString = RandomString & Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1)
Next
End Function
A adapter à tes besoins bien entendu....
/1b436c312a4f438d890245b5db66863e/auth-avatar/b6937c51c15c07206e73fb7a925ca0a8-ucfoutu)
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour
est de nature à m'inquiéter au plus haut point si tu veux dire par là que tu ne sais pas isoler dans ce (le code) que tu "trouves" ce qui correspond à ce que tu veux affecter à une variable !
je n'ai trouvais que des codes qui génère la référence dans une message box impossible de le copier.
est de nature à m'inquiéter au plus haut point si tu veux dire par là que tu ne sais pas isoler dans ce (le code) que tu "trouves" ce qui correspond à ce que tu veux affecter à une variable !
Bonjour,
J'ai pu isoler la foncton le code que j'ai donne ceci :
Mais elle n'est pas reconnue.
Cordialement
PS Je débute en VBA
J'ai pu isoler la foncton le code que j'ai donne ceci :
Function code_alea()
Randomize
carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
lettre_aleatoire = ""
For i = 1 To 6
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)
If i = 3 Then lettre_aleatoire = lettre_aleatoire & "-"
Next
End Function
Mais elle n'est pas reconnue.
Cordialement
PS Je débute en VBA
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
1) ta fonction n'est pas typée
2) ta fonction ne retourne rien
3) une fonction personnalisée doit être mise en publique dans un module standard
mets donc ceci dans un module standard
Et regarde ce que donne cette formule dans la cellule de ton choix :
voilà tout.
EDIT : et ta fonction pourrait par ailleurs être écrite plus simplement ainsi :
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
2) ta fonction ne retourne rien
3) une fonction personnalisée doit être mise en publique dans un module standard
mets donc ceci dans un module standard
Public Function code_alea() As String ' -->> typée en String
Randomize
carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
For i = 1 To 6
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
' et donne à la fonction ce qu'elle doit retourner
code_alea = code_alea & Mid(carac, nombre_aleatoire, 1)
If i = 3 Then code_alea = code_alea & "-"
Next
End Function
Et regarde ce que donne cette formule dans la cellule de ton choix :
= code_alea()
voilà tout.
EDIT : et ta fonction pourrait par ailleurs être écrite plus simplement ainsi :
Public Function code_alea() As String
Randomize
carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
For i = 1 To 6
code_alea = code_alea & Mid(carac, Int(Len(carac) * Rnd) + 1, 1)
Next
code_alea = Format(code_alea, "@@@-@@@")
End Function
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.