Comment faire un tirage aléatoire

[jacky49]

bonsoir,
tout en gardant le principe du fichier joint, je voudrais faire un tirage aléatoire qui envoie dans la feuille série les N°.En faite la macro qui est dans ce fichier(macro de pierrejean à qui j'avais demandé un rangement spéciale pour un autre fichier) range dans la feuille série les participants par ordre d'arrivée.Ce que je voudrais , tout en les rangeant dans la feuille série, qu'il se range de façon aléatoire.
merci de votre aide.
jacky

 

[youky(BJ)]

Re : Comment faire un tirage aléatoire

Bonjour Jacky,
J'ai mis des formules et ajouté du code.
Possible aussi de faire sans utiliser de formules...vois déja ceci.
A+

 

[youky(BJ)]

Re : Comment faire un tirage aléatoire

Re
Plus besoin de formules tout se fait en macro.
Mieux que le précédent..

Sub test()
Dim deja(200) As Boolean
Dim tablo(200)
Randomize       'utilise l'heure system pour Rnd
nb = Feuil1.[A4].End(xlDown).Row - 4 'nombre joueurs
For k = 1 To nb 'création tablo de 1 à nb aléatoire
  Do
    n = Int((nb * Rnd) + 1)
    If deja(n) = False Then
     deja(n) = True
     tablo(k) = n
     Exit Do
    End If
  Loop
Next
Sheets("Série").Range("B7:R13").ClearContents
If Range("R5") <> "" Then
  nombredepoules = Range("R5")
Else
  MsgBox ("Donnez le nombre de poules")
  Exit Sub
End If
ligne = 7
col = 2
pas = 3
For n = 5 To Range("A65536").End(xlUp).Row
  Sheets("Série").Cells(ligne, col) = Range("A" & tablo(n - 4) + 4)
  col = col + pas
  If col = 2 + 3 * nombredepoules Or col = -1 Then
    ligne = ligne + 1
    col = col - pas
    pas = -pas
  End If
Next n
Sheets("Série").Select
Application.Calculation = xlCalculationAutomatic
End Sub

Va y doucement y fait chaud

 

[jacky49]

Re : Comment faire un tirage aléatoire

bonjour le forum,youky(BJ) ,

Merci beaucoup, c'est exactement ce que je voulais et oui il fait tres chaud mais c'est mieux ainsi.
merci encore
jacky

 

[jacky49]

Re : Comment faire un tirage aléatoire

BONJOUR LE FORUM,youky(BJ),

Je joins mon fichier d'origine bien allégé bien sur mais avec le principal car j'ai une erreure qui survient sur la ligne souligné et une fois sur celle-ci:If deja(n) = False Then

,

Sub test()
Dim deja(200) As Boolean
Dim tablo(200)
Randomize       'utilise l'heure system pour Rnd
[U]nb = Feuil1.[A4].End(xlDown).Row - 4 'nombre joueurs[/U]
For k = 1 To nb 'création tablo de 1 à nb aléatoire
  Do
    n = Int((nb * Rnd) + 1)
    If deja(n) = False Then
     deja(n) = True
     tablo(k) = n
     Exit Do
    End If
  Loop
Next
Sheets("Série").Range("B7:R13").ClearContents
If Range("R5") <> "" Then
  nombredepoules = Range("R5")
Else
  MsgBox ("Donnez le nombre de poules")
  Exit Sub
End If
ligne = 7
col = 2
pas = 3
For n = 5 To Range("A65536").End(xlUp).Row
  Sheets("Série").Cells(ligne, col) = Range("A" & tablo(n - 4) + 4)
  col = col + pas
  If col = 2 + 3 * nombredepoules Or col = -1 Then
    ligne = ligne + 1
    col = col - pas
    pas = -pas
  End If
Next n
Sheets("Série").Select
Application.Calculation = xlCalculationAutomatic
End Sub

merci de votre aide.
jacky

 

[jacky49]

Re : Comment faire un tirage aléatoire

re bonjour,

quelqu'un a t'il une idée??sur cette ligne qui pose apparement problème:
nb = Feuil1.[A4].End(xlDown).Row - 4 'nombre joueurs
j'ai essayé en renomant Feuil1 par le nom de feuille,c'est à dire: SMF mais en vain.
merci
jacky

 

[jacky49]

Re : Comment faire un tirage aléatoire

bonjour le forum,youky(BJ),

je viens de trouver l'erreure, j'ai renomé a cet endroit :
nb = Feuil1.[A4].End(xlDown).Row - 4 'nombre joueurs par :
nb = Feuil4.[A4].End(xlDown).Row - 4 'nombre joueurs mais par contre , je voulais savoir pourquoi, il me prends aussi la cellule DOSSARD en A6 alors qu'il devrait commencé à A7.
merci de l'aide que vous pourrez m'apporter.
jacky
PS: voici le nouveau fichier

 

[jacky49]

Re : Comment faire un tirage aléatoire

re,
merci à tous, j'ai réussi à trouver la solution(il suffit d'aller faire un tour pendant 20 mn et on revient plus concentré).
merci à tous et à youky(BJ) .
jacky
PS: j'ouvre un nouveau fil pour une question qui ressemble à celle ci.