For Next imbriqués en quantité variable

Version imprimable

Bonjour a tous
J'ai une question peut etre un peu generale, mais quand meme appliquée a excel dans mon cas.

J'ai un code qui contient plusieurs boucles for imbriquées
Le probleme est que ces boucles ne sont pas toutes utiles a tous les tours. Je m'explique:
Le nombre de boucles for next a imbriquer depend d'un autre indice(disons n). donc si n=1, alors je n'ai qu'une boucle for a realiser. Alors que si n = 4 je devrais avoir 4 for imbriqués.
Et pour s'ajouter a ca, les indices dependent les uns des autres d'une boucle a l'autre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'code a executer pour n=2 for r= 1 to X for s= r+1 to X 'code a executer' next s next r 'pour n=3 for r= 1 to X for s= r+1 to X for t= s+1 to X 'code a executer' next t next s next r
existe-t-il un moyen de faire cela proprement en vba? La recursion est elle la seule option? si oui qq un aurait il des pistes?

Bonjour,

Tu pourrais faire un truc de ce style

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For r = 1 To x
    If n > 1 Then
        For s = r + 1 To x
            If n > 2 Then
                For t = s + 1 To x
                    If n > 3 Then
                        For u = t + 1 To x
                            'code pour n4
                        Next u
                    End If
                    'code pour n3
                Next t
            End If
            'code pour n2
        Next s
    End If
    'code pour n1
Next r

01/06/2012, 23h30
raffi98

Ah j'etais pas loin. j'avais fait un systeme assez proche, mais avec des goto (hum! scusez).
Probleme: je passais qd meme par dessus les next, et donc je me retrouvais avec des indices qui n'avaient aucun sens.
Par contre mon code du milieu n'apparaissait qu'une seule fois, et il est assez long , donc la je vais devoir le mettre en sub ou fonction, avec un tas de parametres a passer.
Donc voila, a moins que qq trouve une solution en recursif, je me debrouillerais avec ca. Au moins le resultat est sans erreur.

Merci fring

Et comme ceci ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim x As Long, n As Long, i As Long
 
x = 5
n = 3
 
Do
    For i = n To x
        'code à exécuter
    Next
    n = n - 1
Loop Until n = 0
 
End Sub

07/06/2012, 17h11
raffi98

J'avoue que je préférais la premiere version que t'avais posté, d'ailleurs je ne sais meme pas si l'autre marche, car je ne voyais pas trop comment l'appliquer a mon cas. Merci quand meme de t'etre penche sur la question...
Juste pour rappeler que ce qui posait probleme etait de faire varier le nombre de boucles for/next imbriquées, alors que les plages d'indice etaient fixées(meme si elles dependaient les unes des autres)

Donc je n'ai pas cherché plus sur la récursion. Le premier code marche bien. Et je viens de voir un truc : la déclaration #Const

#Const permet de déclarer des "conditional compiler constant", qui permettent de creer des blocs qui s'executent de facon conditionnelle.
Bon je croyais que ca pouvait etre un truc pas mal, mais en fait ca s'utilise comme un IF, avec l'avantage de delcarer la condition de facon explicite comme une constante....
http://oreilly.com/catalog/vbanut/ch...let.html#sect4