Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Boucle pour 13 executions

Boucle pour 13 executions

6 réponses
Avatar
arnaud
J'ai 13 pages, je copie le contenu de leur colonne C vers la colonne A de la
feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de la page 1 à la page 13
(plutot que de recopier 13 fois ce bloc dans ma macro) ???
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Patrice
Salut,

Si tu copies tout au même endroit dans chaque feuille, si
elles se ressemblent toute, tu peux essayer de passer par
un groupe de travail :

Sheets(Array("Feuil3", "Feuil2", "Feuil1")).Select à la
place de Sheets("Article").Select

j'ai pas essayé, mais ça me semble possible. (tu
remplaceras feuil1, ...) par tes noms de feuilles

Tiens moi au courant,

Patrice



-----Message d'origine-----
J'ai 13 pages, je copie le contenu de leur colonne C vers
la colonne A de la

feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de la
page 1 à la page 13

(plutot que de recopier 13 fois ce bloc dans ma macro) ???


.



Avatar
arnaud
Je copie la même zone sur toutes les feuilles mais je les colle à la suite
les unes des autres sur la feuille article...
Merci de m'aider ...






"Patrice" a écrit dans le message de
news: 128c01c48c13$fa0f9910$
Salut,

Si tu copies tout au même endroit dans chaque feuille, si
elles se ressemblent toute, tu peux essayer de passer par
un groupe de travail :

Sheets(Array("Feuil3", "Feuil2", "Feuil1")).Select à la
place de Sheets("Article").Select

j'ai pas essayé, mais ça me semble possible. (tu
remplaceras feuil1, ...) par tes noms de feuilles

Tiens moi au courant,

Patrice



-----Message d'origine-----
J'ai 13 pages, je copie le contenu de leur colonne C vers
la colonne A de la

feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de la
page 1 à la page 13

(plutot que de recopier 13 fois ce bloc dans ma macro) ???


.



Avatar
J-Dan
bonjour Arnaud,

si ta macro doit concerner TOUTES les feuilles, tu peux
essayer ceci :

Sub Copie()
Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
Worksheets(i).Activate
Columns("C").copy
Range("A1").Activate
ActiveSheet.Paste
Range("A1").Select
Next
Application.CutCopyMode = False
worksheets("celle que tu veux").Activate
End Sub


J-Dan

-----Message d'origine-----
J'ai 13 pages, je copie le contenu de leur colonne C
vers la colonne A de la

feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de la
page 1 à la page 13

(plutot que de recopier 13 fois ce bloc dans ma
macro) ???



.



Avatar
RaMA
Bonjour

Sub ConSoPage()
Dim P, I As Integer
P = 0
On Error Resume Next
Sheets.Add.Name = "Article"
On Error GoTo 0
Sheets("Article").Select
Range("c:c").Clear 'Si besoin
For I = 1 To 13
Sheets("Page " & I).[C4:C110].Copy _
Destination:=Sheets("Article").Cells(Sheets("Article").[c65536].End(xlUp).Ro
w + P, 3)
P = 1
Next I
End Sub

Salutations
RaMa
--
.
"arnaud" a écrit dans le message de
news:%
Je copie la même zone sur toutes les feuilles mais je les colle à la suite
les unes des autres sur la feuille article...
Merci de m'aider ...






"Patrice" a écrit dans le message de
news: 128c01c48c13$fa0f9910$
Salut,

Si tu copies tout au même endroit dans chaque feuille, si
elles se ressemblent toute, tu peux essayer de passer par
un groupe de travail :

Sheets(Array("Feuil3", "Feuil2", "Feuil1")).Select à la
place de Sheets("Article").Select

j'ai pas essayé, mais ça me semble possible. (tu
remplaceras feuil1, ...) par tes noms de feuilles

Tiens moi au courant,

Patrice



-----Message d'origine-----
J'ai 13 pages, je copie le contenu de leur colonne C vers
la colonne A de la

feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de la
page 1 à la page 13

(plutot que de recopier 13 fois ce bloc dans ma macro) ???


.







Avatar
ru-th
Salut

Sub Test()
For i = 2 To 14
Sheets(i).Range("c4:c" & Sheets(i).[c65536].End(xlUp).Row).Copy _
Sheets("Article").[c65536].End(xlUp).Offset(1)
Application.CutCopyMode = False
Next
End Sub

a+
rural thierry
"arnaud" a écrit dans le message de news:
#
J'ai 13 pages, je copie le contenu de leur colonne C vers la colonne A de
la

feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de la page 1 à la page
13

(plutot que de recopier 13 fois ce bloc dans ma macro) ???




Avatar
J-Dan
Arnaud,
oublie la macro ci-dessous, elle copie sur chaque feuille
la colonne C en A.
Celle-ci devrait marcher si ton onglet "Articles" est le
premier à gauche.

Sub copy()
Application.ScreenUpdating = False

For i = 2 To Worksheets.Count
Worksheets(i).Activate
Range(Cells(1, 3), Cells(65536, 3).End(xlUp)).Select
Selection.copy

Worksheets("Articles").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Next
Application.CutCopyMode = False
End Sub

J-Dan

-----Message d'origine-----
bonjour Arnaud,

si ta macro doit concerner TOUTES les feuilles, tu peux
essayer ceci :

Sub Copie()
Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
Worksheets(i).Activate
Columns("C").copy
Range("A1").Activate
ActiveSheet.Paste
Range("A1").Select
Next
Application.CutCopyMode = False
worksheets("celle que tu veux").Activate
End Sub


J-Dan

-----Message d'origine-----
J'ai 13 pages, je copie le contenu de leur colonne C
vers la colonne A de la

feuille Article
J'ai créé cette macro en automatique :

Sheets("Page 4").Select
Range("C4:C110").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Article").Select
ActiveSheet.Paste
ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlUp).Select

Quelle boucle dois je réaliser pour qu'excel fasse de
la


page 1 à la page 13
(plutot que de recopier 13 fois ce bloc dans ma
macro) ???



.

.