Discussion :

[edouardmartin]

Bonjour,

Je souhaite générer automatiquement des nombres aléatoires découlant d'une loi binomiale de paramètres (observations, échantillons générés, probabilité) grâce à une macro.

J'ai utilisé l'utilitaire d'analyses d'excel pour effectuer celà en mode enregistrement de macros.

J'obtiens ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub uu()
'
' uu Macro
'
'
     Application.Run "ATPVBAEN.XLAM!Random", "loi", 200, 1, 4, 0.5, 1
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Application.CutCopyMode = False
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[1]C:R[200]C)"
    Range("A1").Select
End Sub

Je souhaite modifier ce code, de manière à ce qu'il renvoie à des cellules de mon fichier qui spécifient le nombre d'observations, le nombre d'échantillons générés et la probabilité.

Concrètement, je souhaite que les chiffres en gras dans le code soient remplacés par des référerences de cellules :
exemple : 200 deviendrait "A1"
0.5 deviendrait "A2"

Le problème est que mon niveau VBA ne me permet pas de modifier le code de manière satisfaisante

Merci par avance de votre aide
Edouard

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").value

renvoit la valeur de la callule A1
ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(L,C).Value

L:Ligne (nombre), C:Colonne