Discussion :

[Exceldéfi]

Bonjour,

Je cherche une solution pour une macro Excel.

Je souhaite réaliser un tirage de boules (nombre de boules variables d’une partie à l’autre) avec remise.

J’aimerais connaitre l’algorithme, macro (fonction condition, boucle) permettant d’obtenir sur Excel toutes les tirages possibles et imaginables.

Cordialement, SVP aidez-moi.
Exceldéfi.

[Jean-Philippe André]

Salut,

si tu as un nombre X de boules et que tu tires 5 fois par exemple, une double boucle suffira

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim strresult As String
dim i As Integer 'numero de ligne
dim j,k,l,m,n 'les 5 tirages
dim X as Integer ' ton nombre de boules
i=1
X = 5 ' pris ici arbitrairement
For  j = 1 To X
    For k = 1 To X
        For l = 1 To X
            For m = 1 To X
                For n = 1 To X
                   Range("A" & i).Value = j & " " & k & " " & l & " " & m & " " & n
                   i = i+1
                Next n
           Next m
       Next l
   Next l
Next j

[Exceldéfi]

Merci beaucoup, je vais étudier sa.

[Exceldéfi]

j'ai une queston c'est quoi ton "strresult "
Merci d'avance.

[Jean-Philippe André]

Initialement j'avais prevu de stocker le resultat dans une chaine, mais j'ai finalement tout ecrit directement dans les cellules