Sub recopie()
lig = 4
For r = 4 To [B50000].End(xlUp).Row
Cells(lig, 7).Resize(Cells(r, 4).Value, 2).Value = Cells(r, 2).Resize(1, 2).Value
lig = lig + Cells(r, 4).Value
Next r
End Sub
"Caisse à dires" (comme disait mon oncle, chauffeur de taxi)Sur mon fivhier, le code macro ne fonctionne pas
Mais ... ça frise l'obsession, cette histoire de panties!Un petit bout de Dim, ca ne mange de pas de biscottes
Y'a pas d'raison, mon bon Monsieur! (mais expliquer où le bas (pour faire plaisir à Staple1600!) blessait aurait peut-être été utile à ceux qui passeront par ici, plus tard ... s'il te reste 2 minutes)gourdin à dit:désolé
Sub Recap()
Dim t, n&, rest(), j&, i&, x, y
t = Range("B4:D" & Range("B" & Rows.Count).End(xlUp).Row + 3)
n = Application.Sum(Application.Index(t, , 3))
ReDim rest(1 To IIf(n, n, 1), 1 To 2)
j = 1
For i = 1 To UBound(t)
x = t(i, 1): y = t(i, 2)
For j = j To j + Val(t(i, 3)) - 1
rest(j, 1) = x: rest(j, 2) = y
Next
Next
If n Then [G4].Resize(n, 2) = rest
Range("G" & n + 4 & ":H" & Rows.Count).Delete xlUp
End Sub