A la recherche d'une solution
Menezbarry -  
Quelles sont les combinaisons possibles lors d'un tirage avec remise de 3 numeros parmis 16 numeros numérotés de 1 a 16?

6 réponses

  • Votes
  • Date
  • Date décroissante
  3. via55
    Bonjour,

    Il y a 4096 combinaisons possibles

    Petite macro pour les afficher toutes 
    Sub tirages()
For n = 1 To 16
For m = 1 To 16
For j = 1 To 16
tir = n & ", " & m & ", " & j
x = x + 1
Range("B" & x) = tir
Next
Next
Next
End Sub

    Cdlmnt
    Via
    1. Menezbarry Auteur
      Merci pour l'intervention mais je m'y vois pas bien dans le romaine alors Jaimerais que vous me guidiez un peu Si possible pour les afficher.
  4. via55
    Voilà un exemple
    https://mon-partage.fr/f/bsqf8FNb/
    1. Menezbarry Auteur
      Finalement je n'arrive pas a ouvrir le fichier combinaisons xlms. Ya une solution a cela?
  6. Patrice33740
    Bonjour,

    Places cette formule en A1 :
    =MOD(ENT((LIGNES($1:1)-1)/(16^(COLONNES($A:A)-1)));16)+1
    tires la jusqu'en C1 (3 colonnes)
    Puis tires A1:C1 jusqu'en A4096:C4096
    1. DjiDji59430
      Bonjour a tous

      On sort plusieurs fois la meme combinaison, en realite, il n'y en a que 560

      123, c'est pareil comme tirage que 132 ou 321.

      Ce ne sont pas des arrangements que Menezbarry demande
      Crdlmt
      1. Patrice33740
        Alors : 
        Sub test()
Dim c As Range
   Set c = [A1]
   c.Resize(1, 3).EntireColumn.Clear
   For a = 1 To 16
     For b = a + 1 To 16
       For d = b + 1 To 16
         c.Offset(0, 0).Value = a
         c.Offset(0, 1).Value = b
         c.Offset(0, 2).Value = d
         Set c = c.Offset(1)
       Next
     Next
   Next
   c.Resize(1, 3).EntireColumn.AutoFit
End Sub

        Cdlt

    Discussions similaires

    Où est Charlie ? Le livre magique
    LeChatMiaule

    3 réponses
    Que veux dire "Envoie prêt chez l'expéditeur ?" (Chronopost)
    Yoting

    17 réponses
    solution de tous les albums ou est Charlie
    Utilisateur anonyme

    3 réponses
    Je ne trouve pas ouaf
    Luffy

    3 réponses
    Problème avec CHRONOPOST
    Gaelle2504

    9 réponses