sais tu combien de combinaison cela represente ?
a faire comme tu veux dans l'ordre ca va etre une serie de boucle imbriquées pas possible
en tant que gros faineant
je laisse un dictionnaire faire son job meme si je boucle plus que ce qu'il faut
juste comme ca chez moi j'obtiens 38449 combinaison possible de 3 nombre avec ta serie de 1 a 35
'-------------------------------------------------------------------------------------------
Sub test()
Dim dico,i&,n1&,n2&,n3&
Set dico = CreateObject("scripting.dictionary")
Do
i = i + 1
n1 = Cells(1 + Round((Rnd * 34)), 1).Value
re1:
n2 = Cells(1 + Round((Rnd * 34)), 1).Value: If n2 = n1 Then GoTo re1
re2:
n3 = Cells(1 + Round((Rnd * 34)), 1).Value: If n3 = n1 Or n3 = n2 Then GoTo re2
dico(n1 & "-" & n2 & "-" & n3) = ""
Loop Until i = Rows.Count
Cells(1, "C").Resize(dico.Count, 1) = Application.Transpose(dico.keys)
End Sub