Générer numéros de tombola automatiquement Résolu

Question

Bonjour,

Alors voila, pour notre association nous allons organiser une soirée avec une tombola.
Le truc c’est qu’il nous faut des planches (20 billets par planche) pour un nombre d’environ 5000 numéros totalement au hasard. Donc 5000 numéros à écrire à la main et surtout veiller à ce qu’ils soient uniques c’est un peu longs ! Ma question est : Existe-t-il un moyen sous word, excel, ou autres, pour générer autant de numéros au hasard et uniques ?

Merci beaucoup !!!

eriiic · Accepted Answer

Bonjour,

Voici un petit programme en vba qui te génére et te mélange les numéros.
Il les place dans la colonne A d'une feuille (à créer) nommée 'Billets'
A toi de les utiliser dans l'ordre sur ta feuille où sont dessinés les billets de tombola par 
=Billets!A1   
=Billets!A2   
etc.

Dim numBillets() As Long, nb As Long
Dim i As Long, j As Long, tmp As Long
Public Sub melanger()
    nb = InputBox("Nombre de billets ?")  ' combien de billets faut-il ?
    ReDim numBillets(1 To nb)
    For i = 1 To nb ' générer tous les n° de billets
        numBillets(i) = i
    Next i
    For i = 1 To nb ' les mélanger en les permutant 2 à 2
        j = Int(Rnd() * nb + 1)
        tmp = numBillets(i)
        numBillets(i) = numBillets(j)
        numBillets(j) = tmp
    Next i
    Worksheets("Billets").Columns("A:A").Delete Shift:=xlToLeft
    For i = 1 To nb ' les inscrire sur la feuille 'Billets'
        Worksheets("Billets").Range("A" & i) = numBillets(i)
    Next i
End Sub

eric

kivou · Answer

Trop génial !!!!! Je te remercie beaucoup !!! Ca fonctionne super bien !!!
Dis-moi juste une petite dernière question, est-ce que ton programme peut mettre des 0 quant il me donne des nombres inférieurs à 1000 (ex. : 0097) ?

Merci !!!!!!!!!!

eriiic · Answer

De rien... :-)

Remplace la formule par
=droite("0000" & Billets!A1;4)
et tu auras le format voulu

Si ça te parait suffisant comme solution n'oublie pas de mettre en résolu stp. Merci
eric

kivou · Answer

Excuse-moi, mais je suis novice dans la programmation, est-ce que tu peux me redonner le programme en entier avec la formule incorporée ? Car moi, ça ne fonctionne pas !

Merci beaucoup !!!

kivou · Answer

Ca :

=droite("0000" & Billets!A1;4)

Tu le mets où exactement ?

Merci !

kivou · Answer

Parfait c’est bon, ça fonctionne très bien !

Je te remercie !!!

Bonne soirée !

Générer numéros de tombola automatiquement

6 réponses

Votre réponse

Discussions similaires