Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
bonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns
Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1),
Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelleBonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
bonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns
Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1),
Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelle
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
bonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns
Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1),
Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelleBonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
ps/
DECBIN à un maximun de 0 à 511 (10 caractères) = 0111111111
isabellebonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelleBonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
ps/
DECBIN à un maximun de 0 à 511 (10 caractères) = 0111111111
isabelle
bonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelle
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
ps/
DECBIN à un maximun de 0 à 511 (10 caractères) = 0111111111
isabellebonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelleBonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"),
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"),
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"),
Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :
généraliser pour un nombre variant de 2 à 16 ?
Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :
généraliser pour un nombre variant de 2 à 16 ?
Bonsour® Tatanka avec ferveur ;o))) vous nous disiez :
généraliser pour un nombre variant de 2 à 16 ?
Bonjour Isabelle,
Pas encore tout compris ta macro ;-(
Pour Huit, voici ce que je veux obtenir.
Je suis encore pogné avec des boucles mais en
passant par un tableau, ça simplifie un tipeu le code
et c'est drôlement plus rapide.
Sub Huit()
Application.ScreenUpdating = False
Dim L
Dim t()
n = 2 ^ 8
ReDim t(1 To n, 1 To 1)
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
For Each g In L
For Each h In L
i = i + 1
t(i, 1) = a & b & c & d & e & f & g & h
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
Range(Cells(1, 1), Cells(n, 1)).Value = t
Columns("A").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Serge
"isabelle" a écrit dans le message de news: Oap$ps/
DECBIN à un maximun de 0 à 511 (10 caractères) = 0111111111
isabellebonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelleBonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonjour Isabelle,
Pas encore tout compris ta macro ;-(
Pour Huit, voici ce que je veux obtenir.
Je suis encore pogné avec des boucles mais en
passant par un tableau, ça simplifie un tipeu le code
et c'est drôlement plus rapide.
Sub Huit()
Application.ScreenUpdating = False
Dim L
Dim t()
n = 2 ^ 8
ReDim t(1 To n, 1 To 1)
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
For Each g In L
For Each h In L
i = i + 1
t(i, 1) = a & b & c & d & e & f & g & h
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
Range(Cells(1, 1), Cells(n, 1)).Value = t
Columns("A").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Serge
"isabelle" <i@v> a écrit dans le message de news: Oap$YkEZIHA.4696@TK2MSFTNGP05.phx.gbl...
ps/
DECBIN à un maximun de 0 à 511 (10 caractères) = 0111111111
isabelle
bonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelle
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonjour Isabelle,
Pas encore tout compris ta macro ;-(
Pour Huit, voici ce que je veux obtenir.
Je suis encore pogné avec des boucles mais en
passant par un tableau, ça simplifie un tipeu le code
et c'est drôlement plus rapide.
Sub Huit()
Application.ScreenUpdating = False
Dim L
Dim t()
n = 2 ^ 8
ReDim t(1 To n, 1 To 1)
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
For Each g In L
For Each h In L
i = i + 1
t(i, 1) = a & b & c & d & e & f & g & h
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
Range(Cells(1, 1), Cells(n, 1)).Value = t
Columns("A").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Serge
"isabelle" a écrit dans le message de news: Oap$ps/
DECBIN à un maximun de 0 à 511 (10 caractères) = 0111111111
isabellebonjour Serge,
Sub huit()
For i = 1 To 64
Range("A" & i) = "'" & Format(Evaluate("DECBIN(" & i & ", 8)"), "00000000")
Next
Range("A1:A" & Range("A65536").End(xlUp).Row).TextToColumns Destination:=Range("A1"), _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
Range("A:A").NumberFormat = "General"
End Sub
il reste à remplacer les 0 et 1 par ce que tu veut,
isabelleBonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge
Bonsoir, Bonsoir,
À votre avis, peut-on modifier cette macro
dans le but de la généraliser pour un
nombre de boucles variant de 2 à 16 ?
Fonction récursive, peut-être ?
Pour le moment, j'ai besoin d'un petit répit
et je vous salue bien bas ;-)
Sub Six()
Application.ScreenUpdating = False
Dim L
Sheets.Add
L = Array("R", "B")
For Each a In L
For Each b In L
For Each c In L
For Each d In L
For Each e In L
For Each f In L
n = n + 1
Cells(n, 1) = a
Cells(n, 2) = b
Cells(n, 3) = c
Cells(n, 4) = d
Cells(n, 5) = e
Cells(n, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Merci et bonne soirée,
Serge