Help: Boucle imbriqué

[stephsen]

Bonjour,

avant tout merci pour ces exemples, trés interessant j'ai beaucoup appri, mais ne repond pas a mon probleme.

Voici mon probléme, j'aimerai un code qui serais capable de faire ceci:
ligne1 colonne1, ligne1 colonne2, ligne1 colonne3
ligne1 colonne1, ligne1 colonne2, ligne2 colonne3
ligne1 colonne1, ligne1 colonne2, ligne3 colonne3
ligne1 colonne1, ligne1 colonne2, ligne4 colonne3
................................
ligne1 colonne1, ligne2 colonne2, ligne1 colonne3
ligne1 colonne1, ligne2 colonne2, ligne2 colonne3
ligne1 colonne1, ligne2 colonne2, ligne3 colonne3
ligne1 colonne1, ligne2 colonne2, ligne4 colonne3
................................
................................
................................
ligne2 colonne1, ligne1 colonne2, ligne1 colonne3
ligne2 colonne1, ligne1 colonne2, ligne2 colonne3
ligne2 colonne1, ligne1 colonne2, ligne3 colonne3
ligne2 colonne1, ligne1 colonne2, ligne4 colonne3
................................

J'ai 3 colonnes: ( Zone A1:C13)
09 F E
10 H D
11 J BD
12 K BE
13 D BB
14 C BC
15 N BF
16 Q
99 G


ce qui donnerai:
09 F E
09 F D
09 F BD
09 F BE
09 F BB
09 F BC
09 F BF
09 H E
09 H D
09 H BD
09 H BE
09 H BB
09 H BC
09 H BF
09 J E
09 J D
09 J BD
09 J BE
09 J BB
09 J BC
09 J BF
10 F E
10 F D
10 F BD
10 F BE
10 F BB
10 F BC
10 F BF
10 H E
10 H D
10 H BD
10 H BE
10 H BB
10 H BC
10 H BF
10 J E
10 J D
10 J BD
10 J BE
10 J BB
10 J BC
10 J BF


Merci de votre aide

 

[stephsen]

Re : Help: Boucle imbriqué

Personne pour m'aider
Help

 

[Fred0o]

Re : Help: Boucle imbriqué

Bonjour stephsen et bienvenue sur le forum

Tout d'abord, il te faudra savoir être patient, car ici, c'est un forum bénévole où personne ne paie et personne n'est obligé de te répondre. En harcelant les bénévoles, tu risques de les énerver.

Ensuite, merci de prendre connaissance de la Lien supprimé et de l'appliquer.

Pour finir, tu as plus de chances de réponses si tu fournis un fichier exemple (ce que tu as fourni mais dans un fichier). En effet, on n'a pas envie de se retaper tes exemples.

A+

 

[Victor21]

Re : Help: Boucle imbriqué

Bonjour et bienvenue sur le forum.

Merci de suivre Lien supprimé, et de fournir un fichier avec quelques données d'entrée significatives et le résultat souhaité. Ce sera beaucoup plus clair, et permettra aux contributeurs intéressés par ce problème à vérifier que leurs propositions sont bien adaptées à votre demande.

Edit : Bonjour, FredOo. désolé de t'avoir percuté 🙂

 

[stephsen]

Re : Help: Boucle imbriqué

Desolé,

merci pour les réponses.
Mais après des heures a essayer, a chercher sur internet sans y arrivé, l'impatience s'installe.

Je joint un fichier exemple.

Merci

 

[Fred0o]

Re : Help: Boucle imbriqué

Re-bonsoir,

Tu peux tester ce code :

Sub Essai()
    Dim i, j, k
    Dim Mi, Mj, Mk
    Mi = Range("A65536").End(xlUp).Row
    Mj = Range("B65536").End(xlUp).Row
    Mk = Range("C65536").End(xlUp).Row
    For i = 1 To Mi
        For j = 1 To Mj
            For k = 1 To Mk
                Cells(((i - 1) * Mk * Mj) + ((j - 1) * Mk) + k, 11) = Cells(i, 1)
                Cells(((i - 1) * Mk * Mj) + ((j - 1) * Mk) + k, 12) = Cells(j, 2)
                Cells(((i - 1) * Mk * Mj) + ((j - 1) * Mk) + k, 13) = Cells(k, 3)
            Next
        Next
    Next
End Sub

A+

 

[stephsen]

Re : Help: Boucle imbriqué

Merci beaucoup
je vais tester et essayer de comprendre

 

[stephsen]

Re : Help: Boucle imbriqué

Ca marche nikel pour 3 colonnes

l’inconvénient c'est que je peux avoir plus de 3 colonnes.
C'est assez variables, je peux avoir jusqu'a 15 colonnes

 

[Fred0o]

Re : Help: Boucle imbriqué

Re-bonsoir,

Il fallait le préciser dans ton post de départ...

Essaie de ton coté de trouver une solution à partir de ce que j'ai déjà fourni.

A+