XL 2013 crer une liste de nombres aleatoires entre un min et un max avec une fonction VBA méthode particulière

[patricktoulon]

Bonsoir à tous
c'est juste pour le fun
perso pour créer une liste de nombres aléatoires je préfère mélanger une liste ordonné(dans l'ordre au départ)
on a la garantie de non doublons et c'est largement plus rapide
sauf que là l'exercice est encore plus intéressant
je demarre avec une liste (un array vide(sans valeur)
alors pour faire de 1 à max ca va ,mais pour faire de min à max ca devient compliqué avec cette méthode tout du moins sans transformé un code très simple à la base en en centrale nucléaire

voici la méthode avec un array vide sans doublons et de 1 à max

Function randomListNumber(maxi)
   Dim i&, X&, temp
   Randomize
    ReDim t(1 To maxi)
    For i = 1 To maxi
        If t(i) = "" Then t(i) = i
        temp = t(i)
        X = 1 + Int((Rnd * (maxi - 1)))
        If t(X) = "" Then t(X) = X
        t(i) = t(X)
        t(X) = temp
    Next
    randomListNumber = t
End Function

Sub test()
    MsgBox Join(randomListNumber(30), vbCrLf)
End Sub

 

[patricktoulon]

Y aurait-il une autre façon de faire ?
Sûrement ! A vous de jouer.
Mais cette méthode est très subtile et efficace car elle utilise à la fois l'indice et le Rnd pour valoriser 2 valeurs en 1 passage.

et elle est surtout très rapide car nul besoins de surveiller les doublons
autrement dit même si un item peut être interverti avec un [autre(pas forcement le même)] mais il n'y aura jamais de doublons

 

[Dudu2]

@mapomme,
Joli, mais tu as 2 boucles !

 

[Dudu2]

Ah mince alors !
@mapomme arrive à déclarer un LBound < 0 ! Et moi j'ai bloqué là-dessus ???

 

[laurent950]

Re @patricktoulon

je fais un autre essaie

Function randomListNumber3(mini, maxi, nb) As String()
    Dim i As Long, result() As String
    ReDim result(1 To nb)
    Randomize
    For i = 1 To nb
        result(i) = CStr(Int((maxi - mini + 1) * Rnd) + mini)
    Next
    randomListNumber3 = result
End Function

Sub test()
    MsgBox Join(randomListNumber3(-3, 20, 10), vbCrLf)
End Sub

 

[patricktoulon]

oui @mapomme 2BOUCLES !!! allez !!!!! recalé!!!

t = Evaluate("COLUMN(" & Cells(1, 1).Resize(, Max).EntireColumn.Address(0, 0) & ")")
msgbox t(5)

 

[patricktoulon]

Ah mince alors !
@mapomme arrive à déclarer un LBound < 0 ! Et moi j'ai bloqué là-dessus ???

de la même maniere ou je redim t a plus de 1 pour le Lbound

 

[mapomme]

@mapomme,
Joli, mais tu as 2 boucles !

Oui mais je suis certain que c'est plus rapide que cette batterie de If ... Then.

restons simples et compréhensibles. Ces If sont des verrues inesthétiques dans ce type de code.

 

[laurent950]

oui @mapomme 2BOUCLES !!! allez !!!!! recalé!!!

tu devrais aussi lui mettre Diabolo hi hi hi

 

[mapomme]

Re
Sinon, on peut rester sur un tableau usuel de 1 à n et translater simplement à la fin :

Function AleaMinMaxUsineAgaz(mini, maxi)
Dim n&, i&, k&, aux&
   n = maxi - mini + 1: ReDim t(1 To n)
   Randomize
   For i = 1 To n: t(i) = i: Next
   For i = 1 To n: k = 1 + Int(Rnd * n): aux = t(i): t(i) = t(k): t(k) = aux: Next
   For i = 1 To n: t(i) = mini - 1 + t(i): Next
   AleaMinMaxUsineAgaz = t
End Function

 

[laurent950]

Sinon, on peut rester sur un tableau usuel de 1 à n et translater simplement à la fin :

Tu es partie sur 3 boucles tu te serais pris les pieds dans la deuxième boucle hi hi hi

 

[patricktoulon]

re
la version de mapomme avec les 3 argument

Function randomListNumber(mini, maxi, nb)
Dim i&, n&, k&, aux, t()
   ReDim Preserve t(mini To maxi): n = maxi - mini + 1
   Randomize
   For i = mini To maxi: t(i) = i: Next
   For i = mini To maxi: k = mini + Int(Rnd * n): aux = t(i): t(i) = t(k): t(k) = aux: Next
   ReDim Preserve t(mini To mini + nb)
   randomListNumber = t
End Function

Sub test()
MsgBox Join(randomListNumber(-10, 20, 12), vbCrLf)
End Sub

 

[patricktoulon]

Re
Sinon, on peut rester sur un tableau usuel de 1 à n et translater simplement à la fin :

Function AleaMinMaxUsineAgaz(mini, maxi)
Dim n&, i&, k&, aux&
   n = maxi - mini + 1: ReDim t(1 To n)
   Randomize
   For i = 1 To n: t(i) = i: Next
   For i = 1 To n: k = 1 + Int(Rnd * n): aux = t(i): t(i) = t(k): t(k) = aux: Next
   For i = 1 To n: t(i) = mini - 1 + t(i): Next
   AleaMinMaxUsineAgaz = t
End Function

non là ca va plus je vais prendre des mesure

 

[patricktoulon]

bon ben j'en ai 3
c'est pas mal comme petits exercices non ?

 

[patricktoulon]

le but étant vous l'avez compris
de faire une serie avec des nombres
allant d'un min à un max(voir plus important que le nombre d'items) avec un nombres d'items plus petit que le Max et cela en une seul boucle

 

[mapomme]

c'est pas mal comme petits exercices non ?

Oui c'est rigolo.
22h déjà! Allez, vite une soupe, une tisane, le suppo et au lit!