vba tirage aléatoire

julien clerc · 18 Août 2012

bonjour à tous je cherche sans succès une macro pour effectuer un tirage aléatoire parmi n numéro . et de noter le nombre de sortie de chaque numéros pour être claire je donne un exemple:

tirer aléatoirement : parmi 1,2,3,4,5,6,7,8,9,10 de a1- a10 un numéros noté en col B le numéros tiré et recommencer toujours parmi 1,2,3,4,5,6,7,8,9,10 de a1- a10
si un chiffre arrive a 10 sortie le tirage s’arrête

voila j’espère avoir était claire car pas évidant à expliquer

je vous remercie d'avance

JCGL · 18 Août 2012

Re : vba tirage aléatoire

Bonjour à tous,

Change le code en :

VB:

Sub Lancement() ' Adapté de Robert sur XLD
Dim x As Byte, y As Byte, t As Byte
Dim Val() As Byte
z = Range("A65536").End(xlUp).Row
Columns(2).ClearContents
For x = 1 To 10
    Randomize
    t = Int((z * Rnd) + 1)
    'If t = 10 Then Exit Sub
    Cells(x, 2).Value = Cells(t, 1).Value
    ReDim Preserve Val(x - 1)
    If x > 1 Then
        For y = 0 To UBound(Val, 1)
            If t = Val(y) Then
                Cells(x, 2).Value = ""
                x = x - 1
                GoTo suite
            End If
        Next y
    End If
    Val(x - 1) = t
suite:
Next x
End Sub

A + à tous

pierrejean · 18 Août 2012

Re : vba tirage aléatoire

Bonjour julien clerc
Salut MJ13
Salut JC

Un essai (en supposant avoir compris)

Modeste geedee · 18 Août 2012

Re : vba tirage aléatoire

Bonsour®

julien clerc à dit:
re je vois un énorme problème : je vien de constater que le programme ne répond pas à ma difficulté je m'explique : le programe tire 10 tirage et m'indique le numéros de la bille tiré par tirages ceux n'est pas du tous ce que je recherche .
je veux que le programme tire autan de tirage et afficher le résultat suivant ex:
1 sortie : 3
2 sortie : 6
3 sortie: 9
4 sortie 10
5 sortie : 3
6 sortie : 4
7 sortie : 8
8 sortie : 4
9 sortie : 2
10 sortie : 4

merci

Regarde la pièce jointe 861316

les kzamples orée été donai pluto, su tétée plu fassile à comprendre...

julien clerc · 18 Août 2012

Re : vba tirage aléatoire

j'ai mis du temps a me faire comprendre mais ouff ! vous m'avez compris
gros merci à pierre jean et modeste c'est effectivement ceux que je cherché
merci aussi à JCGL de m'avoir accorder du temps
merci a vous vous êtes super
a +

JCGL · 18 Août 2012

Re : vba tirage aléatoire

Bonjour à tous,

L'important est que tu aies ta réponse mais j'avoue n'avoir toujours pas compris ta demande malgré les exemples de PJ et Geedee...

A + à tous

julien clerc · 18 Août 2012

Re : vba tirage aléatoire

en revanche sur le classeur de modeste je n'arrive pas à décaler les flèche qui se trouve sur la colone B car il pose problème si je rajoute des billes
merci

JCGL · 18 Août 2012

Re : vba tirage aléatoire

Bonjour à tous,

Fais un clic droit sur la forme et tu la déplaces où tu veux...

A + à tous

julien clerc · 18 Août 2012

Re : vba tirage aléatoire

Modeste geedee · 18 Août 2012

Re : vba tirage aléatoire

Bonsour®

julien clerc à dit:
en revanche sur le classeur de modeste je n'arrive pas à décaler les flèche qui se trouve sur la colone B car il pose problème si je rajoute des billes
merci

pour le fun alors :
choix nombre de billes de 0 à 20

julien clerc · 19 Août 2012

Re : vba tirage aléatoire

bonjour a tous
***pour le fun modeste excellent

Aelen · 6 Juin 2013

Re : vba tirage aléatoire

Bonjour à tous,
le code vba de jcgl m'interresse beaucoup, j'aimerais pouvoir faire un tirage de 20 valeurs sur 32 possibilités et implanter le resultats sur plusieurs classeurs Excel.

Mes besoins:
définir clairement les adresses sources des données utilisées pour le tirages
définir clairement les adresses resultat du tirage et pouvoir les implanter dans plusieurs fichiers excels.
permettre le tirage de 20 numéros sur 32 possibilités sans remise.

Mon probleme:
Je ne comprends pas comment la macro de JCGL fonctionne! =)
j'arrive pas de moi-meme à modifier les données (a part passer de 10 billes à 32)

Merci d'avance de votre aide et de vos réponses!

Modeste geedee · 6 Juin 2013

Re : vba tirage aléatoire

Bonsour®

Aelen à dit:
permettre le tirage de 20 numéros sur 32 possibilités sans remise.

permettre le tirage de N numéros sur 32 possibilités sans remise.

vba tirage aléatoire

julien clerc

XLDnaute Junior

JCGL

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

julien clerc

XLDnaute Junior

JCGL

XLDnaute Barbatruc

julien clerc

XLDnaute Junior

JCGL

XLDnaute Barbatruc

julien clerc

XLDnaute Junior

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

julien clerc

XLDnaute Junior

Aelen

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Discussions similaires