Aide formule créer autant de ligne que de valeur dans 2 col

Question

J'ai besoin d'aide pour construire un fichier. En gros j'ai 2 colonnes, la première avec A/B/C en ligne et la 2eme avec 1/2/3 aussi en ligne le resultat attendu doit être 1 A 1 A 2 B 2 A 3 C 3 A 4 4 A 5 5 A 1 B 2 B 3 B 4 B 5 B 1 C 2 C 3 C 4 C 5 C Un grand merci par avance pour votre aide...

Pedro22 · Accepted Answer

Dans le cas où votre tableau commence en cellule A1, un code VBA possible : Sub TransfoDonnees() Dim L1 As Integer, L2 As Integer, L3 As Integer With Sheets("NomFeuille") 'Nom à adapter For L1 = 1 To .Range("B" & Rows.Count).End(xlUp).Row For L2 = 1 To .Range("A" & Rows.Count).End(xlUp).Row &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;L3 = L3 + 1 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Range("D" & L3) = .Range("A" & L2) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Range("E" & L3) = .Range("B" & L1) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next L2 &nbsp;&nbsp;&nbsp;&nbsp;Next L1 End With End Sub...