Re : Etendre le champ d'action d'une macro enregistrée
re:
Citation:
Sub copie()
sheets("Tout").select ' Selection de la feuille ou je dois coller
For n = 4 To Workbook.Sheets.Count
Sheets(n).Range("K4:W52").Copy ' la selection n'et pas nécessaire pour copier : gain de temps
' ((N-4)*50) au premier passage n = 0 *50 = 0 +1 = 1, au 2eme n-4 = 1 *50 = 50 + 1 = 51 etc.....
Range("B" & 1 + ((n-4)*50).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
|
essaye cela :
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
Dernière modification par wilfried_42 ; 31/05/2007 à 14h05.
|