re:
il est vrai que des cellules contenant des formules sont comptabilisés, il va falloir travailler sur les valeurs
Citation:
function derligne(plage as range) as long
dim i as long
for i = plage.count to 1 step-1
if plage(i).value >"" then exit for
next i
derligne = i
end function
|
et
Citation:
|
Sheets(n).Range("K4:W" & derligne(Range("K4:K" & sheets(n).range("K65000").end(xlup).row))).Copy
|
Mais la, je n'ai jamais testé, sans aucune conviction, mais cela semble logique
__________________
salutations
Wilfried
Plus j'apprends, plus je sais....... plus je sais que je ne sais rien.
Venez visiter mon zoo :
Cliquez ici il est si petit, un petit click quotidien merci