re:
je ne sais pa pourquoi j'ai mis des . surement la sieste à faire lol
Voici une macro qui devrait(si je n'ai pas la tete ailleur!!!) fonctionner
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
|
__________________
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