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?

Afficher la suite

6 réponses

Réponse 1 / 6
UnGnU Contributeur
BONJOUR !

Réponse là !

De rien !
0
Réponse 2 / 6
DjiDji59430
Bonjour,

Va voir là :

https://www.dcode.fr/combinaisons

Crdlmt
0
1. Menezbarry Auteur
  
  Temps mort dû a l'occupation mais voilà l'inexistant de la combinaison (16 9 6). Au fait il ne figure pas dans cet ordre.c'est justifiable?
  
  0
Réponse 3 / 6
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
0
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.
  
  0
Réponse 4 / 6
via55
Voilà un exemple
https://mon-partage.fr/f/bsqf8FNb/
0
1. Menezbarry Auteur
  
  Finalement je n'arrive pas a ouvrir le fichier combinaisons xlms. Ya une solution a cela?
  
  0
Vous n’avez pas trouvé la réponse que vous recherchez ?

La communauté CCM répond en moyenne en moins de 2h.

Posez votre question
Réponse 5 / 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
0

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

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

A la recherche d'une solution

6 réponses

Discussions similaires

Newsletters