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
| Sub testacos()
Dim nbvalteste As Double
Dim borninf As Double
Dim bornsup As Double
Dim i As Double
Dim resmin As Double
'tu déclares ce que tu veux
borninf = InputBox("Rentre ici la borne inf de ton intervalle d'étude de x")
bornsup = InputBox("Rentre ici la borne sup de ton intervalle d'étude de x")
nbvalteste = InputBox("Combien de valeurs veux-tu tester?")
'tu initialises x à une valeur en dehors de ton intervalle de définition, la boucle se chargera de mettre les bonnes valeurs
Cells(6, 2).Value = 100
Cells(16, 2).Value = 100
resmin = Cells(10, 3).Value
'tu commences la boucle
For i = 1 To nbvalteste
Cells(6, 2).Value = borninf + i * (bornsup - borninf) / nbvalteste
'tu testes les valeurs au fur et à mesure et tu retiens la meilleure
If Cells(10, 3).Value < resmin Then
resmin = Cells(10, 3).Value
Cells(16, 2).Value = Cells(6, 2).Value
End If
Next
End Sub |
