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!