1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub test()
dim cell as range, derlig as long, i as integer, nom as string
derlig = 2
worksheets("feuil1").activate
for each Cell in worksheets("feuil1").range("a1:a" & range("A65536").end(xlUp).Row)
if Left(Cell, 2) = "- " or Cell.Font.Bold = True Then
Nom = Cell
i = 1
Do
if not Isempty(Cell.offset(i, 0)) then
worksheets("feuil2").range("A" & derlig) = Nom
worksheets("feuil2").range("B" & derlig & ":H" & derlig).value = Worksheets("feuil1").range(Cell.offset(i, 0).address & ":" & Cell.offset(i, 6).address).value
derlig = derlig + 1
end If
i = i + 1
loop while Cell.offset(i, 0) <> Nom and Cell.offset(i, 0) <> ""
end If
next
End sub |
Partager