1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
sub recap()
dim i as integer
dim compteur as integer
dim test as variant
test = ""
compteur = 5
for i = 6 to 500
test = worksheets("feuil1").cells(i,1).value
if test <> "" then
compteur = compteur + 1
worksheets("récap").cells(compteur,1).value = worksheets("feuil1").cells(i,1).value
worksheets("récap").cells(compteur,2).value = worksheets("feuil1").cells(i,2).value
worksheets("récap").cells(compteur,3).value = worksheets("feuil1").cells(i,3).value
worksheets("récap").cells(compteur,4).value = worksheets("feuil1").cells(i,4).value
worksheets("récap").cells(compteur,5).value = worksheets("feuil1").cells(i,5).value
worksheets("récap").cells(compteur,6).value = worksheets("feuil1").cells(i,6).value
worksheets("récap").cells(compteur,7).value = worksheets("feuil1").cells(i,7).value
worksheets("récap").cells(compteur,8).value = worksheets("feuil1").cells(i,8).value
worksheets("récap").cells(compteur,9).value = worksheets("feuil1").cells(i,9).value
end if
next i
end sub |
Partager