Petit problème Boucle For For For Next next next

Bonjour

J'ai besoin d'aide concernant une simple concaquénation de colonnes.

Dans A

0

1

2

dans B

0

1

2

dans C

0

1

2

j'utilise ce code pour faire générer toute les combinaison possible (concaquénation des 3 colonnes ABC ) et d'envoyer le résultat comme sur ce code (ci dessous)

Le problème est que le résultat obtenues avec ce code ne corespand pas du tout.

Il devrait normalement ressembler a sa:

Colonne D

000

001

002

010

011

012

020

021

022

100

101

102

110

111

112

120

121

122

200

201

202

210

211

212

220

221

222.

Fin des résultat

Ce calcule rend 27 résultats soit 3^3

Quelqu'un aurait-il une solution svp ?

Sub permuta()
Dim rangea As Range   'Déclaration de rangea en tant que range (plage)
Dim rangeb As Range   'Déclaration de rangeb en tant que range (plage)
Dim cb As Range       'Déclaration de cb en tant que range (plage)
Dim ca As Range       'Déclaration de cb en tant que range (plage)
Dim i As Long         'Déclaration de i en tant que integer (entier..)

Set rangea = ActiveSheet.Range("A1", "A4")  'definit rangea = A1=>A4
Set rangeb = ActiveSheet.Range("B1", "B2")  'définir rangeb = B1=>B2
i = 0

For Each cb In rangeb  'pour chaque range (cellule) contenu dans la plage rangeb

     For Each ca In rangea 'pour chaque range (cellule) contenu dans la plage rangeb

         Sheets("Feuil2").Range("A1").Offset(i, 0) = ca.Value & cb.Value 'on écrit la valeur de la cellule en cours du rangea puis la valeur de la cellule en cours du rangeb
        i = i + 1
    Next
Next
End Sub
 

Salut le forum

Comme ceci

Sub permuta()
    Dim RangeA As Range, RangeB As Range, RangeC As Range
    Dim Ca As Range, Cb As Range, Cc As Range
    Dim i As Long

    Set RangeA = ActiveSheet.Range("A1", "A3")
    Set RangeB = ActiveSheet.Range("B1", "B3")
    Set RangeC = ActiveSheet.Range("C1", "C3")
    i = 0
    For Each Ca In RangeA
        For Each Cb In RangeB    '
            For Each Cc In RangeC
                Sheets("Feuil2").Range("A1").Offset(i, 0) = "'" & Ca.Value & Cb.Value & Cc.Value
                i = i + 1
            Next Cc
        Next Cb
    Next Ca

End Sub

Mytå

Salut merci

Et tu certain que sa va donner toute les combinaison possible parce qu'apparemment ceux sont exactement les même fonction sauf que les colonnes sont maintenant les bonnes?

Merci sa fonctionne