re:
excuse moi, c'est moi qui n'ai pas precisié....
un fonction est ecrite et doit se mettre à l'exterieur du sub, dans un module, mais il y a une erreur dans la ligne à modifier
Citation:
|
Sheets(n).Range("K4:W" & derligne(Range("K4:K" & sheets(n).range("K65000").end(xlup).row))).Copy
|
devient :
Citation:
|
Sheets(n).Range("K4:W" & 4+derligne(Range("K4:K" & sheets(n).range("K65000").end(xlup).row))).Copy
|
et prend l place de la ligne en
rouge
Citation:
Sub copie()
sheets("Tout").select ' Selection de la feuille ou je dois coller
For n = 4 To Workbook.Sheets.Count
' sheets(n).range("K65000").end(xlup).row ---> donne la derniere ligne pleine
Sheets(n).Range("K4:W" & sheets(n).range("K65000").end(xlup).row).Copy ' la selection n'et pas nécessaire pour copier : gain de temps
' range("B65000").end(xlup).row + 1 ---> donne la prochaine ligne vide
Range("B" & range("B65000").end(xlup).row + 1).Select ' Selection obligatoire pour un pastespecial -->
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks: = _False, Transpose:=False
next n ' Prochaine feuille
Range("B1").select ' Selection de B1 sur feuille "tout"
End Sub
|
je ne sais pas si je me suis bien fait comprendre lol, je n'ai pas la fibre d'un pedagogue
__________________
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