Nombre aléatoire Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
Joan066
Membre habitué
Membre habitué
Messages : 66
Inscrit le : 19 février 2016
Version d'Excel : 2003

Message par Joan066 » 1 mars 2016, 23:04

bonjour a tous , serrait il possible de créer des Nbre aléatoires sur de 1 a 150, mais sur quatre colonnes ( de 1 a 150 chacune )comme sur le tableau de "AN : AQ". Sur un tournoi de pétanque quatre joueurs ce rencontrent, deux équipes de deux, nous l'appellerons "Tour 1" . ensuite le "Tour 2" qui ne doivent pas rencontrer les même joueurs que précédent . Egalement pour le "Tour 3 " et le "Tour 4". Un joueur doit participer à quatre partie sans le même partenaire ni même équipe.
Sur le tableau ci-joint vous trouverez les Nbres aléatoires (colonne"AN""AO""AP""AQ")qui se déversent par le bouton "Remplir Tableau Tounante " verticalement
2) serrait il possible de contrôler les Nbres aléatoires (colonne"AN""AO""AP""AQ") . je m'explique, du moins je vais essayer . Comme vous pouvez voir il y a des doublons "N9" " T9" "AA9" le chiffre " 12 , ce qui fausse la rencontre des participants . Les participants ne doivent jamais être deux fois ensemble .
Sur un tableau de 10 a20 joueurs on peut contrôler mais une centaine c'est franchement impossible .
Merci de votre Aide
Cordialement
Copie de _tournante-Petanque.rar
(260.57 Kio) Téléchargé 12 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'011
Appréciations reçues : 829
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 2 mars 2016, 05:47

Bonjour,

je n'ai pas pu lire ton fichier, et j'avoue que ton texte n'est pas très clair
alors je reformule : tu cherches une suite de nombres aléatoires entre 0 et 150 sans répétition dans 4 colonnes indépendantes les unes des autres ... est-ce bien cela ?
alea150.xlsx
(22.42 Kio) Téléchargé 19 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 2 mars 2016, 06:47

Bonjour Steelson,

Méthode intéressante, je me la note mentalement !
Mais pour les 3 tours suivants où chacun ne doit plus se retrouver avec un membres de ses 'quartets' précédents ?
Bonne journée.
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'011
Appréciations reçues : 829
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 2 mars 2016, 07:19

Salut MFerrand,

en fait je n'ai pas compris le sujet !!

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
J
Joan066
Membre habitué
Membre habitué
Messages : 66
Inscrit le : 19 février 2016
Version d'Excel : 2003

Message par Joan066 » 2 mars 2016, 10:39

bonjour à tous , je vais essayer d'être clair . Sur le tableau page "tableauTournante" à la colonne "AN" , je fais tourné une Macro qui me donne des Nbres aléatoire et pareil pour trois autres colonnes, de "AN6" à "AN150" .
je prends la colonne " AH", les quatre premier vont sur les cellules "N6 à R6" qui constitue la première équipe , le 11 avec le 8 contre le 1 et le 9, en suivant le 6 avec le 14 contre le 4 et le 5. et toujours dans le même ordre " T1 -T2-T3-T4.
Hors je me retrouve avec des joueurs qui sont deux fois ensemble ( qu'il ne faut pas ) de "N6" a "AJ" 150.
le principe du jeux , qu'on appelle "Tournante " à la pétanque !. un joueur change de partenaire après chaque partie, et ne doit jamais avoir le même coéquipier.
Comme sur la ligne "N9" a "AG9" , par manque de participants , ces joueurs vont faire un Tête a Tête ( pour faire jouer tous le monde !).
Mais (exemple ) le n°12 et le 3 ne doivent pas se rencontrer à la partie suivante en Tête a Tête ni sur le T3 ni T4.
Voili Voilà .
Je pense que le tableau est plus clair , sinon je reste devant le PC pour attendre vos réponse .
Cordialement
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 2 mars 2016, 17:07

J'avais cru comprendre que un joueur ne devait pas retrouver aux tours suivants ni un ancien partenaire ni un ancien adversaire.
J
Joan066
Membre habitué
Membre habitué
Messages : 66
Inscrit le : 19 février 2016
Version d'Excel : 2003

Message par Joan066 » 2 mars 2016, 17:59

oui c'est bien ça . Aucun joueurs ne doivent se retrouver dans la même équipe . il doit changer de partenaire 4 fois sans jouer ensemble.
cordialement
J
Joan066
Membre habitué
Membre habitué
Messages : 66
Inscrit le : 19 février 2016
Version d'Excel : 2003

Message par Joan066 » 3 mars 2016, 00:29

bonjour à tous, je suis toujours avec mon tableau de la tournante de pétanque .
j'ai refait la présentation en gardant les n°de lignes et le nom des colonnes . Serrait-il possible de n'avoir aucun doublon sur la la même plage. (Exemple " N6 a AJ6 ") et bien sur sur aucune ligne du tableau .
Je souhaiterai également une formule en "AL" ( vrai ou faux ) en détection des doublons éventuel .
dans l'attente de vous lire
je vous souhaite une bonne nuit
essai 2 nbr aleatoire sans doublons.xls
(102 Kio) Téléchargé 16 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'011
Appréciations reçues : 829
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 3 mars 2016, 06:58

J'ai enfin compris. Ta description est plus claire et j'ai enfin un fichier lisible !
Je vais utiliser Scripting.Dictionary ... c'est presque du sudoku !

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'011
Appréciations reçues : 829
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 3 mars 2016, 07:33

Un essai, à adapter !
Sub tirage()
Dim Tirag As Object
Dim Nbr As Long
Dim colonne As Integer

colonne = 1
Do
    Do
        Set Tirag = CreateObject("Scripting.Dictionary")
        While Tirag.Count < [effectif]
            Randomize Timer
            Nbr = Int([effectif] * Rnd)
            Tirag(Nbr) = Nbr
        Wend
        Cells(1, colonne + 1).Resize(Tirag.Count) = Application.Transpose(Tirag.Items)
    Loop Until [test].Offset(0, colonne - 1) = 0
    colonne = colonne + 1
Loop Until colonne > 4

End Sub
Uniquement si multiple de 4

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message