[XL-2003] 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

UP

Personne pour m'aider

[gFZT82]

Bonjour,

Tu indiques que la plage concernée est A1:C13.
Or, les données ne couvrent que 9 lignes.
Sur les 2 dernières lignes, il n’y a pas de données en colonne C.

Tu peux essayer ce code et l’adapter

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim DerLig As Long
    With Worksheets("Feuil1") 'A adapter
    DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 1 To 4
        For j = 1 To DerLig
            For k = 1 To DerLig
                Debug.Print Cells(i, 1) & " " & Cells(j, 2) & " " & Cells(k, 3)
            Next k
        Next j
    Next i
    End With
End Sub

Cordialement.

[stephsen]

Merci beaucoup
je vais testé ca