Bonjour à tous,

Je sais pas trop comment expliquer clairement mon problème. Voilà :

Je crée un tableau dans une feuille excel, c'est un tableau à une colonne. Les différents éléments du tableau sont noté tab1(i). Ensuite je calcul un paramètre que j'appelle z qui n'a rien avoir avec les valeurs du tableau.

Je souhaite utiliser chacune des valeurs tab1(i) du tableau dans un calcul (une boucle) de telle sorte que si le résultat du calcul est proche (environ plus ou moins 1%) de z alors j'attribue la valeur de tab1(i) pour laquelle j'ai eu cette approximation à un autre paramètre que j'appelle b.

Voici le code que j'ai bidouillé.....Ce code ne tourne (je comprends pas encore grand chose à VBA).

Je vous remercie d'avance.

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
 
 
Dim i As Integer
Dim z, a As Double
Dim tab1(301) 'j'ai un tableau de 301 valeurs
 
ReDim y(i) As Double
 
 
For i = 0 To 300
 
tab1(i) = Feuil1.Range("A" & i + 2)
 
y(i) = tab1(i) + c * Log((gs / (tab1(i))) - 1)
 
z = a * Log(q) + b + c * Log(v) 
 
a = (z - y(i)) / y(i)
 
If a <= 1 Then
 
b = tab1(i)
 
End If
 
Next i