Re : Combinaison aléatoire entre bornes avec condition
Merci beaucoup les amis c’est exactement ce que je cherchais.
ERIC01 peux-tu m’explique ton code, car moi j’ai fais une compil avec la formule de Nolich et mon code ce qui donne pour un même résultat
Mon nouveau code compile
Private Sub CommandButton1_Click()
'
' Bouton1_QuandClic Macro
'
Range("E9").Select
ActiveCell.FormulaR1C1 = "=ALEA.ENTRE.BORNES(1,8)"
Range("E9").Select
Selection.Copy
Range("E10:E23").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("G9").Select
ActiveCell.FormulaR1C1 = "=ALEA.ENTRE.BORNES(RC[-2]+1,9)"
Range("G9").Select
Selection.AutoFill Destination:=Range("G9:G23"), Type:=xlFillDefault
Range("G9:G23").Select
Range("F10").Select
End Sub
Et ton code
Private Sub CommandButton1_Click()
Dim num(2) As Integer
For K = 1 To 15
recommencer:
For x = 1 To 2
num(x) = Int(Rnd * 8) + 1
Next
If num(2) <= num(1) Then GoTo recommencer
Cells(K + 8, 5) = num(1)
Cells(K + 8, 7) = num(2)
Next
End Sub