Bonsoir a toutes et tous
Voila j'ai fait une petite macro mais j'aimerais qu'elle aille plius loin
c'est a dire jusqu'a la ligne 65148 Merci d'avance
PS tout se passe sur la feuille 1 des 2 classeurs
Range("A188:AD213").Select
Selection.Copy
Windows("toto1.xls").Activate
ActiveSheet.Paste
Windows("toto.xls").Activate
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub Copie() Dim Plage As Range, Ligne As Long Set Plage = Range("A188:AD213") Ligne = 1 Do Plage.Copy Workbooks("toto1.xls").Sheets(1).Range("A" & Ligne) Ligne = Ligne + 26 Set Plage = Plage.Offset(500, 0) Loop While ActiveCell.Row < 65189 End Sub
Cordialement. Daniel "" a écrit dans le message de news:
Bonsoir a toutes et tous Voila j'ai fait une petite macro mais j'aimerais qu'elle aille plius loin c'est a dire jusqu'a la ligne 65148 Merci d'avance PS tout se passe sur la feuille 1 des 2 classeurs Range("A188:AD213").Select Selection.Copy Windows("toto1.xls").Activate ActiveSheet.Paste Windows("toto.xls").Activate
Sub Copie()
Dim Plage As Range, Ligne As Long
Set Plage = Range("A188:AD213")
Ligne = 1
Do
Plage.Copy Workbooks("toto1.xls").Sheets(1).Range("A" & Ligne)
Ligne = Ligne + 26
Set Plage = Plage.Offset(500, 0)
Loop While ActiveCell.Row < 65189
End Sub
Cordialement.
Daniel
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de news:
02506DD8-531E-4CF1-B88C-FACFCE87CFD8@microsoft.com...
Bonsoir a toutes et tous
Voila j'ai fait une petite macro mais j'aimerais qu'elle aille plius loin
c'est a dire jusqu'a la ligne 65148 Merci d'avance
PS tout se passe sur la feuille 1 des 2 classeurs
Range("A188:AD213").Select
Selection.Copy
Windows("toto1.xls").Activate
ActiveSheet.Paste
Windows("toto.xls").Activate
Sub Copie() Dim Plage As Range, Ligne As Long Set Plage = Range("A188:AD213") Ligne = 1 Do Plage.Copy Workbooks("toto1.xls").Sheets(1).Range("A" & Ligne) Ligne = Ligne + 26 Set Plage = Plage.Offset(500, 0) Loop While ActiveCell.Row < 65189 End Sub
Cordialement. Daniel "" a écrit dans le message de news:
Bonsoir a toutes et tous Voila j'ai fait une petite macro mais j'aimerais qu'elle aille plius loin c'est a dire jusqu'a la ligne 65148 Merci d'avance PS tout se passe sur la feuille 1 des 2 classeurs Range("A188:AD213").Select Selection.Copy Windows("toto1.xls").Activate ActiveSheet.Paste Windows("toto.xls").Activate