Code PIN aléatoire, sans chiffre répété

[Grazu]

Bonjour,

j'ai un peu honte de faire appel à vous, mais je ne m'en sors vraiment pas.

J'ai besoin (régulièrement) de générer une centaine de codes PIN aléatoires (sans doublon) et surtout sans répétition de chiffre.
Ex: 1284, 2506 sont OK
mais pas 1281 où le 1 est présent deux fois, ni 2505 (le 5 pose problème).

J'ai cherché avec la fonction ALEA mais je suis obligé de modifier tous les chiffres "répétés" au sein du même code PIN.

J'espère avoir été clair et surtout pouvoir obtenir une aide de votre part, ce dont je vous remercie par avance.

 

[JCGL]

Re : Code PIN aléatoire, sans chiffre répété

Bonjour à tous,

Un joli code de Bruno Campanini. Merci à lui

A+

Edition : Salut PJ ;-)

 

[pierrejean]

Re : Code PIN aléatoire, sans chiffre répété

bonjour Grazu

Voila un petit generateur de codes PIN
Vois si cela te convient

Edit:

Salut JC

 

[cafeine]

Re : Code PIN aléatoire, sans chiffre répété

Hello,

voici une proposition.
je passe en argument les codes générés précédemment ... attention au bout d'un certain nombre de codes ça commence à ramer
sinon on peut faire une fonction "passive" qui génére des codes et ensuite mettre une colonne qui teste NB.SI() ensuite en filtrant sur les NB.SI()=1 tu auras une bonne liste de code.

Function GenCode(ByVal r As Range) As String

Dim strValues As String
Dim currCode As String
Dim newCar As String
Dim c As Range

For Each c In r.Cells
    strValues = strValues & "-" & c.Value
Next c
strValues = Mid(strValues, 2)

anotherCode:
Randomize
Do While Len(currCode) < 4
    newCar = Int(Rnd() * 10)
    If InStr(currCode, newCar) = 0 Then
        currCode = currCode & newCar
    End If
Loop

If InStr(strValues, currCode) Then GoTo anotherCode

GenCode = currCode

Set c = Nothing

End Function

 

[cafeine]

Re : Code PIN aléatoire, sans chiffre répété

Hello,

très beau code mais il génére de doublons.

Bonjour à tous,

Un joli code de Bruno Campanini. Merci à lui

A+

 

[JCGL]

Re : Code PIN aléatoire, sans chiffre répété

Re,
Salut Caféine,

C'est vrai, c'est pourquoi j'ai rajouté une MeFC.
Il reste que c'est un joli code qui, à l'origine, est fait pour générer des Mots de Passe (alpha et/ou numérique).

A+

 

[Grazu]

Re : Code PIN aléatoire, sans chiffre répété

Magnifique, Messieus je vous remercie :
1/ de votre amabilité
2/ de la rapidité de vos réponses
3/ de la qualité de celles-ci

Si je peux me permettre, j'ai testé plusieurs fois le programme, et remarqué que les codes PIN pouvaient commencer par un 0, ce qui m'est interdit, et ce que j'ai omis de préciser au préalable, veuillez m'en excuser.
Etant donné ma nullitude (?), je ne sais pas quoi modifier pour éviter çà.

Merci encore à tous !

 

[JCGL]

Re : Code PIN aléatoire, sans chiffre répété

Re,
Oups, j'avais oublié : Bienvenue à Grazu ,

Tu appliques un filtre (commence par 0) et tu supprimes les lignes.

Un conseil, si je puis me permettre, ne pas chercher à faire une usine à gaz...

Le fichier de mon ami PJ avec le filtre mis en place.

A+

 

[Grazu]

Re : Code PIN aléatoire, sans chiffre répété

Chapeau bas et 1000 mercis sincères !

 

[pierrejean]

Re : Code PIN aléatoire, sans chiffre répété

Re

Une version sans 0 en debut de code
et qui donne le bon nombre de codes (c'est seulement pour cela que j'ai repris celui de mon ami JC )

 

[poba23]

Re : Code PIN aléatoire, sans chiffre répété

Bonjour,
Annulation du sujet, car je n'ai pas trouvé cette option dans les modifications du message ... merci