Discussion :

[la_ach]

Bonjour tout le monde,

je suis en école d'affaires et c'est ma dernière année, ma prof de programmation m'a donné deux exercices à rédiger en VBA, SVP AIDEZ MOI PARCE QUE J'Y connais rien du tout et il me reste une semaine pour lesrendre

Voici les deux exos en pièces jointes




Bien cordialement

[kiki29]

Salut, à lire en priorité. Une recherche n'est pas prohibée bien au contraire.

[la_ach]

Oui vous avez totalement raison, mais vu ma situation je n'ai vraiment pas le choix je n'ai jamais fais de VBA de ma vie et il faut que je fasse ses deux exos pour la semaine pro, donc mettez vous à ma place :/

[clementmarcotte]

Moi, c'est à ceci que ne connais rien:

Comment peut-on donner un exercice sur une chose dont l'étudiant ne connaît rien ?

Des fois, on a l'impression qu'il y a une épidémie de professeurs qui n'ont aucun souvenir des sujets qu'il ont abordés dans leurs cours quand ils rédigent les examens et les devoirs.

Le plus bizarre dans tout cela, c'est que j'ai un (vrai) baccalauréat en administration, pas un diplôme d'études secondaires, et que l'on ne m'a jamais parlé du contact de Hertz, ni du module de Young. La loi de poisson et la simulation de Monte-Carlo, ça oui.

Programmer des calculs mathématiques en VBA c'est l'enfance de l'art.

Pour faire des multiplications, c'est *
Pour faire des divisions, c'est /
Pour extraire des racines carrées c'est sqr()
pour l'exponentiation, c'est ^
Pour pi c'est PI()

Désolé, mais je n'achète pas ton histoire pantoute.

[la_ach]

Moi non plus j'en ai jamais fait, daillers je n'y connais rien c'est pourquoi je suis sur ce topic, c'est un module supplémentaire et vu que j'étais absente pour quelques contrôles pour des raisons médicales mon directeur d'etudes m'a demandé de faire ces deux exercices pour me rattraper, sauf que comme je vos ai dit je n'y connait absolument rien!!!!

[cerede2000]

Bonjour,

Une petite UDF pour l'approximation de PI via méthode de Monté-Carlo :

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
Public Function PiMonteCarlo(nbRnd As Long) As Double
    Application.Volatile
 
    Dim x As Double
    Dim y As Double
    Dim inCircle As Long
 
    PiMonteCarlo = nbRnd
 
    inCircle = 0
 
    Do Until nbRnd = 0
        Randomize
        x = Rnd() ^ 2
        Randomize
        y = Rnd() ^ 2
 
        If x + y <= 1 Then
            inCircle = inCircle + 1
        End If
 
        nbRnd = nbRnd - 1
    Loop
 
    PiMonteCarlo = (inCircle / PiMonteCarlo) * 4
End Function

Je n'avais jamais entendu parlé de cette méthode d'approximation, rigolo de faire ce petit exercice.