Macro pour attribuer des codes aléatoires
Résolu
ADBJ
Messages postés
14
Statut
Membre
-
gbinforme Messages postés 15478 Statut Contributeur -
gbinforme Messages postés 15478 Statut Contributeur -
Bonjour,
je souhaite mettre en place un système de codes (4 chiffres, de 0 à 9999 donc) pour des casiers que je louerai dans le futur. Je vous explique mon soucis.
J'ai une centaine de casiers à louer. Ma première colonne (A disons) contient les numéros de 1 à 100, et est figée. Sur la deuxième, je souhaite mettre le nom de la personne qui va louer le casier. Je veux attribuer un code associé au nom et au numéro du casier en colonne C. Le problème est qu'il faut que ce code soit unique pour que mon système de sécurité ne bug pas.
Comment je peux faire pour attribuer le numéro aléatoirement tout en vérifiant que ce numéro n'est pas déjà utilisé? J'ai regardé la fonction aléa, mais je ne vois pas comment gérer l'unicité.
Merci d'avance, et bonne journée :)
je souhaite mettre en place un système de codes (4 chiffres, de 0 à 9999 donc) pour des casiers que je louerai dans le futur. Je vous explique mon soucis.
J'ai une centaine de casiers à louer. Ma première colonne (A disons) contient les numéros de 1 à 100, et est figée. Sur la deuxième, je souhaite mettre le nom de la personne qui va louer le casier. Je veux attribuer un code associé au nom et au numéro du casier en colonne C. Le problème est qu'il faut que ce code soit unique pour que mon système de sécurité ne bug pas.
Comment je peux faire pour attribuer le numéro aléatoirement tout en vérifiant que ce numéro n'est pas déjà utilisé? J'ai regardé la fonction aléa, mais je ne vois pas comment gérer l'unicité.
Merci d'avance, et bonne journée :)
A voir également:
- Macro pour attribuer des codes aléatoires
- Les codes ascii - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Codes secrets pour débloquer tous téléphones mobiles - Guide
5 réponses
Bonjour
une autre manière (VBA aussi)
http://www.cjoint.com/c/FIooKcywJvJ
une autre manière (VBA aussi)
http://www.cjoint.com/c/FIooKcywJvJ
ADBJ
Messages postés
14
Statut
Membre
Merci Michel, ça c'est du beau bulot! :)
Bonjour à tous les deux
Un exemple
http://www.cjoint.com/c/FIopcR4XzUq
Zut, entre temps michel est arrivé ;-)
donc bonjour à tous les trois
Cdlmnt
Un exemple
http://www.cjoint.com/c/FIopcR4XzUq
Zut, entre temps michel est arrivé ;-)
donc bonjour à tous les trois
Cdlmnt
et pour gagner quelques centièmes de seconde
Bonne soirée
Option Explicit
Const cocas = "A"
Const cocod = "B"
Const lideb = 2
Const codmaxi = 9999
Const codmini = 1000
Const nbres = 100
Public Sub OK()
Dim t(), k1 As Long, k2 As Long, k As Long
Dim nbcod As Long, c As Long
' dimensionner le tableau t des codes
nbcod = codmaxi - codmini + 1
ReDim t(codmini To codmaxi)
'remplissage tableau des codes
For k = codmini To codmaxi
t(k) = k
Next k
' mélange de t
For k = 1 To 3 * nbcod
k1 = 1000 + Int(Rnd * nbcod)
k2 = 1000 + Int(Rnd * nbcod)
c = t(k1)
t(k1) = t(k2)
t(k2) = c
Next k
' redimensionner le tableau t avec nbres cases
ReDim Preserve t(codmini To codmini + nbres - 1)
' affichage t
Range(cocod & lideb).Resize(nbres, 1) = Application.Transpose(t)
End Sub
Bonne soirée
En VBA .. pour générer un nombre aléatore c'est RND (et non ..alea)
Pour envuite vérifier que ce nombre n'est pas déjà utilisé... tu peux très bien utiliser la méthode FIND pour le chercher dans ta feuille.
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
Le tout dans une boucle WHILE (tant que le nombre existe... alors je refais un random + un find.
Si le find ne me retourne rien.. alors c'est bon je peux continuer mon cde
Int ((999 - 100 + 1) * Rnd + 100) 'Result: random number between 100 and 999
Pour envuite vérifier que ce nombre n'est pas déjà utilisé... tu peux très bien utiliser la méthode FIND pour le chercher dans ta feuille.
https://forums.commentcamarche.net/forum/affich-37621992-methode-find-dans-vba-recherche-de-donnees-sous-excel
Le tout dans une boucle WHILE (tant que le nombre existe... alors je refais un random + un find.
Si le find ne me retourne rien.. alors c'est bon je peux continuer mon cde
While condition Actions Wend
J'ai compris vos méthodes, et je veux peaufiner un peu le truc.
Je souhaiterais pouvoir vérifier si un code est déjà pris. Par exemple, un client me dit qu'il aimerait avoir le numéro 5632. J'ai crée une macro, je tape sur le bouton générer. Je peux alors taper ce code 5632. Il doit me dire si ce numéro est dispo. Je pensais avoir bien compris la commande find,mais visiblement non. Ma méthode find semble me retourner toujours "nothing".
Je ne comprends pas trop ce qui cloche.
Voici mon fichier, avec ma macro :)
http://www.cjoint.com/c/FIpkTd1fQQl
Je souhaiterais pouvoir vérifier si un code est déjà pris. Par exemple, un client me dit qu'il aimerait avoir le numéro 5632. J'ai crée une macro, je tape sur le bouton générer. Je peux alors taper ce code 5632. Il doit me dire si ce numéro est dispo. Je pensais avoir bien compris la commande find,mais visiblement non. Ma méthode find semble me retourner toujours "nothing".
Je ne comprends pas trop ce qui cloche.
Voici mon fichier, avec ma macro :)
http://www.cjoint.com/c/FIpkTd1fQQl
Je ne cherche qu'à apprendre, et j'ai fais l'effort de proposer une solution. Je ne comprends pas pourquoi mon projet ne fonctionne pas. Ça doit être une subtilité du "Find", commande gentillement proposée par Jordane.
J'avoue ne pas trop comprendre cette agressivité soudaine. Mais si quelqu'un de bienveillant pouvait jeter un oeil et m'orienté, je lui serait très reconnaissant.
S'il est interdit de poser deux questions successives sur ce forum d'aide, qu'on me le dise, je m'excuserai...
J'avoue ne pas trop comprendre cette agressivité soudaine. Mais si quelqu'un de bienveillant pouvait jeter un oeil et m'orienté, je lui serait très reconnaissant.
S'il est interdit de poser deux questions successives sur ce forum d'aide, qu'on me le dise, je m'excuserai...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour à tous,
Même si le sujet est résolu, je te propose une solution un peu différente.
Je ne cherche qu'à apprendre,
Voilà donc une solution avec un formulaire qui te permettra de voir ce qu'il est possible d'obtenir.
https://www.cjoint.com/c/FIqjnJnorBl
Bon test.
Même si le sujet est résolu, je te propose une solution un peu différente.
Je ne cherche qu'à apprendre,
Voilà donc une solution avec un formulaire qui te permettra de voir ce qu'il est possible d'obtenir.
https://www.cjoint.com/c/FIqjnJnorBl
Bon test.