Macro pour attribuer des codes aléatoires
Résolu
ADBJ
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
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
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- 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
11
Date d'inscription
Statut
Membre
Dernière intervention
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
Bonjour,
Via formule ou via macro ?
Via formule ou via macro ?
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.