ROGER2327
XLDnaute Barbatruc
Bonjour à tous.
Bonne journée.
ℝOGER2327
#7818
Jeudi 26 Pédale 142 (Saint Pâle, mineur - fête Suprême Quarte)
30 Ventôse An CCXXIII, 1,9635h - plantoir
2015-W12-5T04:42:45Z
Pourquoi cette procédure :
Code:
Sub tata()
Dim n&, p&
Randomize
Do: n = 0: p = p + 1: Do While Int(6 * Rnd): n = n + 1: Loop: Loop While n < 84
[A1].Resize(1, 2).Value = Array(n, p)
End Sub
s'exécute-t-elle rapidement, tandis que celle-ci :
Code:
Sub tutu()
Dim n&, p&
Randomize
Do: n = 0: p = p + 1: Do While Int(6 * Rnd): n = n + 1: Loop: Loop While n < 85
[A1].Resize(1, 2).Value = Array(n, p)
End Sub
boucle longuement, jusqu'au plantage par dépassement de capacité sur p ?
Bonne journée.
ℝOGER2327
#7818
Jeudi 26 Pédale 142 (Saint Pâle, mineur - fête Suprême Quarte)
30 Ventôse An CCXXIII, 1,9635h - plantoir
2015-W12-5T04:42:45Z