Discussion :

[Karamus]

Bonjour,

Je suis nouveau sur ce forum et tenais a me présenter avant tout. Je me nomme Bobi et suis novice dans la programmation VBA Excel. J'aurais une requête concernant l'utilisation de la fonction Rand () d'Excel (ma version d'Excel est en anglais). En fait, je souhaiterais créer une macro qui me permettrait de générer aléatoirement des valeurs pour des critères de choix de produit et qui respecterait un certain nombre de contraintes.
Imaginons un nombre de critères allant jusqu'a 5 (ce nombre peut aller jusqu’à 8). Les contraintes sont les suivantes: 1) La génération de chaque valeur de critère devrait respecter un ordre de grandeur (classement) établi par le client qui veut acheter le produit tel que par exemple: si le critère 1 est préféré (ou égal) au critère 2; critère 2 est préféré (ou égal) au critère 3...jusqu'au critère 5, alors les valeurs respectives des critères devraient suivrent cet ordre de classement. 2) La valeur pour chaque critère doit varier entre 0 et 1; 3) La somme des critères doit être égale a 1. 4). Pour chaque critere, generer 1000 valeur aleatoire respectant les contraintes précitées. Faire la moyenne des valeurs pour chaque critere et produire la variance associée a chaque moyenne ainsi que son intervalle de confiance.

J'apprecierais vraiment votre aide.

Bobi

[pgz]

Bonsoir.

La difficulté concerne je pense seulement les 3 premiers points. Voici une procédure qui réalise un tirage avec les conditions 1 à 3, et pour une liste de n critères, n étant variable .

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub subAlea(ByRef sngTab As Variant)
'réalise un tirage entre 0 et 1 pour chaque élément de sngTab qui doit être un tableau 1 dimension
'le total des valeurs tirée est ramené à 1
'les valeurs sont triées de la plus grande à la plus petite
 
Dim sngTot As Single
Dim sngMax As Single
Dim i As Integer, j As Integer, jMax As Integer
 
'tirage des valeurs brutes, chacune entre 0 et 1
Randomize
For i = LBound(sngTab, 1) To UBound(sngTab, 1)
    sngTab(i) = Rnd
    sngTot = sngTot + sngTab(i)
Next i
 
'ramener la somme à 1
For i = LBound(sngTab, 1) To UBound(sngTab, 1)
    sngTab(i) = sngTab(i) / sngTot
Next i
 
'trier
For i = LBound(sngTab, 1) To UBound(sngTab, 1) - 1
    sngMax = 0
    For j = i To UBound(sngTab, 1)
        If sngMax < sngTab(j) Then
            sngMax = sngTab(j)
            jMax = j
        End If
    Next j
    sngTab(jMax) = sngTab(i)
    sngTab(i) = sngMax
Next i
 
End Sub

L'argument de la procédure est une liste de dimension variable. Le premier index peut être O, 1 ou ce que tu veux. On affecte chaque index à un critère dans l'ordre d'importance des critères.
Pour réaliser un tirage, tu peux par exemple faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim sng(1 To 8) As Single
Dim s As String
Dim i As Integer
 
Call subAlea(sng)
 
s = sng(1)
For i = 2 To 8
    s = s & ";" & sng(i)
Next i
 
Debug.Print s
End Sub

J'ai obtenu :

Code :

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

0,1733588;0,146215;0,1320548;0,1298985;0,1152831;0,1142225;0,1111151;7,785229E-02

Il te reste à réaliser le code qui appelle 1000 tirages et réalise les stats.

Cordialement,

PGZ

[Karamus]

Bonjour PGZ,

Je tiens a te remercier encore une fois pour ton aide. Je comprends la logique de ton code sauf que je tente de l'executer dans excel 2013 version anglaise 2013, j'ai ce message d'erreur '' argument not optional''. J'ai joint le fichier excel que j'ai et apprecierais que tu me dises ce que je devrais corriger.
Merci.
Code subAlea.xlsx
Bobi

[pgz]

Bonjour.

Je veux bien regarder, mais tu as joint un classeur .xlsx et je ne m'attends pas à y trouver du code !

Cordialement,

PGZ

[Karamus]

Bonjour PGZ,

Merci pour ton message. Le nouveau fichier joint contient le code vba. Tu pourras voir le code dans le visual basic editor, sous le projet code subAlea 2.

Merci.

Code subAlea 2.xlsm

Bobi

[SfJ5Rpw8]

Bonjour,

Sur qu'elle ligne l'erreur ?

poste cette ligne ici entre balises de codes [code][/code]

[pgz]

Pour l'instant tu as simplement recopié la procédure subAlea, mais aucune procédure d'appel comme test() d'un précédent message.
Il n'y a plus qu'à ...

Cordialement,

PGZ