Si je comprend bien, tu as en
- A: FR et EN (exemple)
- B: D1 - D2 - D3
En C et D tu veux donc
FR + D1
FR + D2
FR + D3
EN + D1
EN + D2
EN + D3
(En faisant ça, la feuille de résultat sera totalement bizarre et incohérente)
mais la solution sera:
Dim i as long, j as long, nbLignesA as long, nbLignesB as long
nbLignesA = Cells(rows.count,"A").End(xlup).Row
nbLignesB = Cells(rows.count,"B").End(xlup).Row
ligneEcrire = 1
for i = 1 to nbLignesA
for j = 1 to nbLignesB
cells(ligneEcrire,"C") = cells(i,"A")
cells(ligneEcrire,"D") = cells(j,"B")
ligneEcrire = ligneEcrire + 1
next j
next i
CF la solution codée (VBA)