A la recherche d'une solution

Menezbarry Messages postés 5 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
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

Réponse 1 / 6
UnGnU Messages postés 1468 Statut Contributeur 158
 
BONJOUR !

Réponse là !

De rien !
0
Réponse 2 / 6
DjiDji59430 Messages postés 4332 Date d'inscription   Statut Membre Dernière intervention   703
 
Bonjour,

Va voir là :

https://www.dcode.fr/combinaisons

Crdlmt
0
Menezbarry Messages postés 5 Statut Membre
 
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 Messages postés 14730 Statut Membre 2 750
 
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
Menezbarry Messages postés 5 Statut Membre
 
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 Messages postés 14730 Statut Membre 2 750
 
Voilà un exemple
https://mon-partage.fr/f/bsqf8FNb/
0
Menezbarry Messages postés 5 Statut Membre
 
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 ?

Posez votre question
Réponse 5 / 6
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
Réponse 6 / 6
DjiDji59430 Messages postés 4332 Date d'inscription   Statut Membre Dernière intervention   703
 
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
0
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
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
0

Discussions similaires

Jeu Messenger, mot entre amis
Reine -
bendrop -

3 réponses
recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses
Recherche de pairs sur utorrent bloqué
flo.h -
Claire -

4 réponses
Réglage chaine de la TNT FR3 TF1 A2 TMC
Yamina -
Redbart -

1 réponse
Je ne trouve pas ouaf
Luffy -
blux -

3 réponses