Générer des numéros

[Pat]

Bonjour à tous

Est-il possible, a l'aide d'une macro de générer une liste aléatoire de numéros . Dans mon cas je voudrais pouvoir générer 6 n°
Merci et bon apres-midi à tous les costauds du forum

 

[Franz63]

Bonjour,

vous avez la fonction alea() qui donne un nombre aléatoire entre 0 et 1

tout dépend ensuite ce que vous souhaitez en faire

en le multipliant par 100 et en gardant uniquement le nobre entier, vous obtenez un nombre entre 0 et 99

ensuite vous faite un boucle for next entre 1 et 6

j'espère que cela répond à votre question

François

 

[porcinet82]

salut pat,

voila un petit code qui te renvoie un nombre aléatoire compris entre 1 et 10 dans la cellule A1 apres validation par le bouton CommandButton1. A toi te l'adapter

Private Sub CommandButton1_Click()
    Dim tirage As Byte
    tirage = Int(Rnd * 10) + 1
    Cells(1, 1) = tirage
End Sub

Bon courage

@+

 

[Pat]

Merci pour les réponses
En fait, j'aurais voulu avoir la possibilité de pouvoir générer 6 nombres qui me serviraient pour faire des grilles de loto
Donc générer 6 nombres sur 49
Bonne soirée à tous

 

[PhiBou]

Bonsoir Le Fil,le Forum

Une multitude de réponses à ta question en ce moment !

Fais par exemple une recherche avec tahitien...

Bonne soirée

PhiBou

 

[Pat]

Scuse Phibou mais je ne comprend pas
Tahitien .... ??

 

[Abel]

Bonsoir le fil,

Pat, regarde ce fil :

Lien supprimé

Abel.

 

[porcinet82]

salut Pat,

Normalement ce petit code associer a un bouton de commande génère 6 chiffres entre 1 et 49

Private Sub CommandButton1_Click()
    Dim tirage As Byte
    For i = 1 To 6
        tirage = Int(Rnd * 49) + 1
        Cells(i, 1) = tirage
    Next i
End Sub

@+

 

[Pat]

J'ai tardé un peu pour la réponse mais je me remets sur excel que ce matin
Merci à Porcinet82 pour son petit code qui fonctionne super et à Abel pour ce fil Je conseille à beaucoup de le visiter et sans doute que d'içi peu de temps il y aura beaucoup de nouveau riches.
Avec un tel humour , nous sommes certains de nous enrichir....