Discussion :

[scorpele]

bonjour

je cherche a créer une boucle sous excel 2007 ressemblant a ce qui suit :

Do
i=i+1
A "indice i" = calcul dépendant d'un case déjà définie (B0)
p"indice i" = calcul dépendant de A
B "indice i" = calcul dépendant de p"indice i"
until p "indice i" = p "indice i-1"

end

les A,B et p "indice 0" sont déjà définis.

[Godzestla]

Un truc de ce genre peut-être :

Code :

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

1
2
3
4
5
6
7
8
 
Do
    i = i + 1
    a(i) = qqchose
    p(i) = qqchosedautre
    b(i) = encoreautrechose_avec_p(i)
 
Loop Until p(i) = p(i - 1)

[scorpele]

j'ai essayé ton code, mais je comprends pas comment je peux "intégrer" des valeurs indice 0 la dedans.
et comment je fais pour afficher le résultat (p(i) qaund itération terminée).

[Godzestla]

Une table définie TABLEAU(10) sous-entend par défaut que les inidices possibles vont de 0 à 9.

Tes tables, sont toujours accessibles en dehors de la boucle.

Si i n'est pas initialisé, il vaut 0 puis 1 au premier passage quand tu fais i=i+1

Tu me suis ?

[scorpele]

euh non... dsl mais la prog c'est pas mon domaine.
en fait mes valeurs 0 sont déjà définies dans la feuille excel.

[Godzestla]

Va pas etre cotton si tu veux faire du VBA sans connaitre un peu de principe de programmation.

C'est quoi tes valeurs 0.... et autres machins ?

Essaie d'expliquer en détails et je verrai si c'est possible sans connaitre de la programmation.

[spitnolan]

Bonjour,

avec un truc du style

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 A() As Variant, B() As Variant, P() As Variant
P = Array(1, 2, 3, 4, 5)
 
ReDim A(1 To UBound(P))
ReDim B(1 To UBound(P))
 
For i = 1 To UBound(P)
    A(i) = Range("B1").Value
    B(i) = P(i) * 2
    If P(i) = P(i - 1) Then Exit For
Next
 
End Sub

Mais d'accord avec Godzestla : si tu n'y connais rien ...

Cordialement

[Godzestla]

Joli Spitnolan. !!!

[scorpele]

j'ai eu des cours de C++ (enfin c t les bases et c'est loin) mais disons que je sais lire un code et l'adapter si besoin. je vais essayer de faire un petit excel avec les valeurs dt j'ai besoin et le poster.

ps : spitnolan, c'est très joli ce que t'as écris mais j'y comprends rien...

[spitnolan]

Re,

Et bien alors, il y a plus simple et sans macro...
En B5 tu mets:
= B18

et tu vas dans Outils/Options/Clacul
tu coches Itération et Nombre maximal d'itérations : 100 (par ex)
et précision : 0.0001

Cordialement

[scorpele]

merci
mais en faisant ça j'obtiens un résultat incorrect.

de plus, je voudrais que ce cette itération ce fasse "toute seule" sans que l'utilisateur le demande et j'avais cru comprendre que les macros servaient à ça. Me suis peut être trompée.

[spitnolan]

Re,

mais en faisant ça j'obtiens un résultat incorrect.

Peux tu préciser ? car ça ne veut rien dire...
Quel doit être le résultat ?
Quel degré de précision ?
....

Par ailleurs tout est automatique dans ce que je t'ai indiqué à partir du moment où c'est paramétré...???!!!!????!!!!???

Cordialement

[scorpele]

Re,Peux tu préciser ? car ça ne veut rien dire...
Quel doit être le résultat ?
Quel degré de précision ?

si je fais le calcul a la main, je n'ai besoin que de 3-4 itérations pour que pu se stabilise a 108,6.
on a alors Ra = 569,3
Vbsd = -733,9 et Vbsd/vplrd = 0,7105
Mred = 987,8

[spitnolan]

Re,

si je fais le calcul a la main, je n'ai besoin que de 3-4 itérations pour que pu se stabilise a 108,6.

Je suis désolé de te contredire, mais pas chez moi... si je remplace B5 par B18 uniquement...
Après 3 ou 4 itérations j'obtiens : pu = 105.2678328
Alors que le bon résultat semble être : 101.93764

Ou alors tu ne nous as pas tout dit...

Cordialement

[scorpele]

j'ai compris ou est la faute !
en fait le dernier calcul pour Mref est toujours fonction de la premiere valeur de Mpl,RD soit B5 origine. seules les valeurs alpha jusqu'à Vbsd/Vpl,rd sont calculées avec le Mred.