Microsoft 365 Aide pour insertion nombre aléatoire

patricktoulon à dit:

bonjour
ceci travaille avec la feuille active

VB:

Sub Aleatoire()
    Randomize
    nombre_alea = Int((2000 * Rnd + 1))
    ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1) = nombre_alea
End Sub

question:
doit on surveiller et ou excepter les doublons ?

Cliquez pour agrandir...

patricktoulon à dit:

re
punaise!!!
un find ,un rnd, un test is nothing sur une range
et tout ça sans garantir l'exception des doublons
et bien tu es bien parti là

en ce qui concerne ma proposition
et bien tu change "1" pour 4 ou "D" c'est tout
ma version
la localisation de la cellule est explicite
si tu veux excepter les doublons il faudra un peu plus pousser le travail(pas beaucoup)

VB:

Sub Aleatoire()
    Randomize
    nombre_alea = Int((2000 * Rnd + 1))
    ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Offset(1) = nombre_alea
End Sub

non le randomize n’évite pas les doublons il permet un recyclage plus large c'est tout

regarde avec un plus petit nombre
je prend 10 nombres aléatoires entre 1 et 10

VB:

Sub Aleatoire()
    For i = 1 To 10
        Randomize
        nombre_alea = Int((10 * Rnd + 1))
        ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Offset(1) = nombre_alea
        t = t & nombre_alea & " | "
    Next
    MsgBox t
End Sub

résultat comme tu le vois j'ai des doublons
Regarde la pièce jointe 1202520

Cliquez pour agrandir...

patricktoulon à dit:

re

VB:

Sub Aleatoire()
    Dim C As Range, i&, Nombre_Alea&
     Randomize
re:
    Nombre_Alea = Int((2000 * Rnd + 1))

    Set C = ActiveSheet.[D:D].Find(Nombre_Alea, LookIn:=xlValues) 'on cherche la cellule ou se trouve le numero que l'on viens de tirer au sort

    If Not C Is Nothing Then GoTo re ' si la cellule n'est pas rien alors il a déjà été tiré on retire un autre nombre en retournant à l'étiquette "re:"

    ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Offset(1) = Nombre_Alea

End Sub

Cliquez pour agrandir...

patricktoulon à dit:

re
une petite version avec indexation et memo des le premier tirage
le premier tirage crée un array de nombre alea entre min et max et le mémorise
le choix de l'index est simplement le numéro de ligne
les tirage suivants on ne récupère que l'index puisque l'array alea est en mémoire
rigolo non ?

VB:

Function Aller_a_la_peche(min, max)
    Static tbl
    If Not IsArray(tbl) Then
        tbl = Evaluate("TRANSPOSE(ROW(" & min & ":" & max & "))")
        For i = LBound(tbl) To UBound(tbl)
            x = 1 + (Rnd * (max - 1))
            tp = tbl(i): tbl(i) = tbl(x): tbl(x) = tp
        Next
    End If
    Aller_a_la_peche = tbl
End Function


Sub test2()
    With ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Offset(1)
        .Value = Aller_a_la_peche(1, 2000)(.Row - 1)
    End With
End Sub

Cliquez pour agrandir...