code vba combinaison 5 numéro sur 49

pierrejean à dit:

Re
Désolé mais je ne suis pas partant pour une étude qui ne peut pas aboutir
Good Luck

Cliquez pour agrandir...

ROGER2327 à dit:

Re : code vba combinaison 5 numéro sur 49

Bonjour à tous
Roger, j'ai utilisé ton code avec une modification des paramètres 1 to 49 à 1 to 50, l'exécution est correcte mais, au contrôle de COMBIN(50;5) le nombre obtenu de combinaisons indique 2 118 760. l'exécution donne 2 065 630 combinaisons. Y-a-t-il une explication ? Première colonne 1 048 576 combinaisons (Dernière ligne) et deuxième colonne elle s'arrête à la ligne 1 017 054. Soit un écart de 53 130 combinaisons en moins.
A bientôt

Cliquez pour agrandir...

pierrejean à dit:

Re : code vba combinaison 5 numéro sur 49

Re

avec encore un peu plus de patience:

Code:

Sub combinaisons()
lin = 1
col = 1
For m = 1 To 49
For n = m + 1 To 49
     For o = n + 1 To 49
          For p = o + 1 To 49
               For q = p + 1 To 49
                 If m Mod 2 <> 0 Or n Mod 2 <> 0 Or o Mod 2 <> 0 Or p Mod 2 <> 0 Or q Mod 2 <> 0 Then
                   Cells(lin, col) = m & " " & n & " " & " " & o & " " & p & " " & q
                   lin = lin + 1
                   If lin > 65536 Then
                     col = col + 1
                     lin = 1
                   End If
                  End If
                Next q
          Next p
     Next o
Next n
Next m
End Sub

Cliquez pour agrandir...

pierrejean à dit:

Re : code vba combinaison 5 numéro sur 49

Bonjour Pierre-jean,
Sans aucune intention malveillante ou désagréable, je vous expédie un constat sur les codes transmis, bien pratique. L'intégrité laisse une interrogation :
Code de Pierre-jean avec une modification de retour en pied de colonne à la ligne 50 000 ou lieu de 64 ....

1850000 sur 37 colonnes de 50 000 combinaisons.
14381 sur la dernière colonne
1864381 Combinaisons au total
SOIT
14381 Combinaisons manquantes

1906884 combinaisons auraient dûes être affichées selon La fonction =COMBIN(49;5) d'Excel 2016 Où est l'erreur, s'il y en a une ?

Code de Roger Code de Pierre-jean
sur 1,... colonnes sur 37,... colonnes
14 18 32 34 35 14 18 32 34 35
14 18 32 34 37 14 18 32 34 37
14 18 32 34 39 14 18 32 34 39
14 18 32 34 41 14 18 32 34 41
14 18 32 34 43 14 18 32 34 43
14 18 32 34 45 14 18 32 34 45
14 18 32 34 47 14 18 32 34 47
14 18 32 34 49 14 18 32 34 49
Manquantes : Manquantes :
14 18 32 34 36 14 18 32 34 36
14 18 32 34 38 14 18 32 34 38
14 18 32 34 40 14 18 32 34 40
14 18 32 35 42 14 18 32 34 42
.....
Mon attirail de travail Win 10 Pro avec office 2016
Intel Core i7-7700K CPU non overclocké 4.2 GHZ
Exploitation 64 Bits. Ram DDR4, 64 Go. (Excel exploité 32bits)
NVIDIA GeForce GTX 1080

Cliquez pour agrandir...

pierrejean à dit:

Re
Sauf erreur de ma part COMBIN(49;5) compte toutes les combinaisons
Or un rapide examen de mon code tend a penser que sont exclues les valeurs paires
Par ailleurs les résultats que tu cites montrent des combinaisons de 10 (et non 5)
Avant d'entreprendre des tests d'une durée non négligeable j'aimerais que tu clarifies l’énonce du problème

Cliquez pour agrandir...

pierrejean à dit:

Re
Sauf erreur de ma part COMBIN(49;5) compte toutes les combinaisons
Or un rapide examen de mon code tend a penser que sont exclues les valeurs paires
Par ailleurs les résultats que tu cites montrent des combinaisons de 10 (et non 5)
Avant d'entreprendre des tests d'une durée non négligeable j'aimerais que tu clarifies l’énonce du problème

Cliquez pour agrandir...