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

[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...