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

patricktoulon · 17 Octobre 2023

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

VB:

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 · 17 Octobre 2023

Dudu2 à dit:
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 · 17 Octobre 2023

@mapomme,
Joli, mais tu as 2 boucles !

Dudu2 · 17 Octobre 2023

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

laurent950 · 17 Octobre 2023

Re @patricktoulon

je fais un autre essaie

VB:

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 · 17 Octobre 2023

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

VB:

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

patricktoulon · 17 Octobre 2023

Dudu2 à dit:
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 · 17 Octobre 2023

Dudu2 à dit:
@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 · 17 Octobre 2023

patricktoulon à dit:
oui @mapomme 2BOUCLES !!! allez !!!!! recalé!!!

tu devrais aussi lui mettre Diabolo hi hi hi

mapomme · 17 Octobre 2023

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

VB:

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 · 17 Octobre 2023

mapomme à dit:
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 · 17 Octobre 2023

re
la version de mapomme avec les 3 argument

VB:

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

Code:

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

patricktoulon · 17 Octobre 2023

mapomme à dit:

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

VB:

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 · 17 Octobre 2023

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

patricktoulon · 17 Octobre 2023

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 · 17 Octobre 2023

patricktoulon à dit:
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!

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

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

laurent950

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

laurent950

XLDnaute Accro

mapomme

XLDnaute Barbatruc

laurent950

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires