nombre aleatoire

[sylvain]

je voudrais creer un nombre aleatoire puis le fixé pour pouvoir recreer de nouveaux nombres aleatoires sans modifier les precedents nombres aleatoires creés.

pour creer un nombre aleatoire ,j'utilise la commande aleatoire.
merci d'avance.

 

[Mytå]

Bonsoir le forum

Regarde si cela pourrait faire

Option Explicit
Sub nbre_aleatoire_figer()

' Gérer un nombre aléatoire et le figer sur la cellule active

With ActiveCell
.FormulaR1C1 = "=ALEA.ENTRE.BORNES(0,100)"
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub

Sub nbre_aleatoire_figer2()

' Gérer un nombre aléatoire et le figer sur une plage de cellule

Dim i As Byte
For i = 1 To 30
With Cells(i, 1)
.FormulaR1C1 = "=ALEA.ENTRE.BORNES(0,100)"
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Next i
End Sub

Mytå

 

[Mytå]

Bonsoir le forum

2 autres possibilités

Option Explicit

'Génération de nombre aléatoire sur plage (Nbre de 1 à 10)

Sub Nbre_aleatoire1()
Randomize
Dim i As Byte, j As Byte
For j = 1 To 10
For i = 1 To 30
Cells(i, j) = Int(Rnd * 10) + 1
Next i
Next j
End Sub

Sub Nbre_aleatoire2()
Randomize
Dim cellule As Range
For Each cellule In Range("A1:J30")
cellule = Int(Rnd * 10) + 1
Next cellule
End Sub