macro générer variables aléatoires

Grand Chaman Excel à dit:

Bonjour,

voici une proposition avec une macro. Modifier au besoin la plage dans la macro Exemple.

VB:

Sub Exemple()
   Call RemplirTableau(Range("B19:HT21"))
End Sub

Sub RemplirTableau(rg As Range)
   Dim ar
   Dim i As Long, j As Long
   Dim Tot As Double
   
   ReDim ar(1 To rg.Rows.Count, 1 To rg.Columns.Count)
   
   rg.FormulaR1C1 = "=rand()"
   ar = rg.Value
   
   For j = 1 To UBound(ar, 2)
         Tot = Application.Sum(Application.Index(ar, , j))
      For i = 1 To UBound(ar, 1)
         ar(i, j) = ar(i, j) / Tot
      Next i
   Next j
   
   rg = ar
   
End Sub

Cliquez pour agrandir...