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 Copie en boucle

Copie en boucle

3 réponses
Avatar
ThierryP
Re-bonjour à tou(te)s !!

Décidément, c'est pas mon jour.....

J'essaie de copier le contenu complet d'une feuille (Cellules, formats,
boutons) d'une feuille à l'autre. Avec l'enregistreur, j'ai eu ce code,
auquel j'ai rajouté la boucle. Après le paste, j'ai un beau message
"Impossible d'entrer en mode Arrêt maintenant". Si je fais "continuer",
la boucle parcourt les feuilles mais rien ne se recopie...

For i = 5 To 52
Sheets(i).Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
i = i + 1
Sheets(i).Select
Cells.Select
ActiveSheet.Paste
Next

Un p'tit coup de main avant le week-end ??? Promis, après je ne vous
embête plus....jusqu'à la prochaine fois :-))))))

Merci !!
--
@+ thierryp
Signaler un problème avec ce contenu

3 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
anonymousA
Bonjour

For i = 5 To 52
Sheets(i).cells.copy sheets(i+1).range("A1")
Next

ce qui implique donc tes feuilles de 5 à 53 auront toutes les mêmes
informations


A+
Avatar
Jacky
Bonjour,
J'essaie de copier le contenu complet d'une feuille (Cellules, formats,
boutons) d'une feuille à l'autre



Sheets("Feuil1").Cells.Copy Sheets("Feuil2").[a1]

Salutations
JJ


"ThierryP" a écrit dans le message de
news:%
Re-bonjour à tou(te)s !!

Décidément, c'est pas mon jour.....

J'essaie de copier le contenu complet d'une feuille (Cellules, formats,
boutons) d'une feuille à l'autre. Avec l'enregistreur, j'ai eu ce code,
auquel j'ai rajouté la boucle. Après le paste, j'ai un beau message
"Impossible d'entrer en mode Arrêt maintenant". Si je fais "continuer",
la boucle parcourt les feuilles mais rien ne se recopie...

For i = 5 To 52
Sheets(i).Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
i = i + 1
Sheets(i).Select
Cells.Select
ActiveSheet.Paste
Next

Un p'tit coup de main avant le week-end ??? Promis, après je ne vous
embête plus....jusqu'à la prochaine fois :-))))))

Merci !!
--
@+ thierryp



Avatar
ThierryP
Décidément, tu dégaines vraiment trop vite !!!
J'ai essayé d'annuler ce post parce que j'avais trouvé entre temps !!

Merci
bon week end

Bonjour

For i = 5 To 52
Sheets(i).cells.copy sheets(i+1).range("A1")
Next

ce qui implique donc tes feuilles de 5 à 53 auront toutes les mêmes
informations


A+



--
@+ thierryp