Comment créer un tirage aléatoire avec Excel?

Bonjour

Je cherche à faire un tirage sans remise avec Excel, via des formules ou des macros VBA.
Par exemple dans la première cellule on aura un num’ero au hasard entre 1 et 100
Dans la 2e cellule, on aura aussi un numéro aléatoire, mais différent du premier
Dans la 3e cellule, diférent des 2 premiers. (et ainsi de suite jusqu’à avoir pioché tous les numéros)

Savez vous comment faire? Merci

Bonjour

Voici une macro qui effectue un tirage aléatoire entre 2 nombres au choix et écrit les nombres un par un dans les cases actuellement sélectionnées
Un même numéro ne sera pas tiré 2 fois

Sub randomNumbers()
    Low = Application.InputBox("Enter first valid value", Type:=1)
    High = Application.InputBox("Enter last valid value", Type:=1)
    Selection.Clear
    For Each cell In Selection.Cells
        If WorksheetFunction.CountA(Selection) = (High - Low + 1) Then Exit For
        Do
            rndNumber = Int((High - Low + 1) * Rnd() + Low)
        Loop Until Selection.Cells.Find(rndNumber, LookIn:=xlValues, lookat:=xlWhole) Is Nothing
        cell.Value = rndNumber
    Next
End Sub
1 « J'aime »

Merci beaucoup pour votre aide!