Copier une plage et coller sur plusieurs feuilles

Le
Denys
Bonjour à tous,

Comment, par VBA, puis-je copier une plage sans cesse grandissante
(Colonne A) et la coller dans seize autres feuilles sans que cela me
prenne une éternité ?

Merci

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #4669111
Bonsoir Denys,
Si par bonheur la plage de destination du collage est la même dans toutes
les feuilles, l'enregistreur de macros me souffle ceci :

Sub Macro1()
Range("A1:A" & Range("a4567").End(xlUp).Row).Select
Selection.Copy
Sheets(Array("Feuil2", "Feuil3","Feuil4","Feuil5","Feuil6")).Select
Sheets("Feuil2").Activate
ActiveSheet.Paste
End Sub

à adapter
--
Avec plaisir
Philippe.R
"Denys" news:
Bonjour à tous,

Comment, par VBA, puis-je copier une plage sans cesse grandissante
(Colonne A) et la coller dans seize autres feuilles sans que cela me
prenne une éternité ?

Merci

Denys
Denys
Le #4666361
Bonsoir Philippe,

Merci beaucoup....Je vais sauver de la place !!!

Bonne soirée

Denys

On 24 août, 12:23, "Philippe.R"
Bonsoir Denys,
Si par bonheur la plage de destination du collage est la même dans tout es
les feuilles, l'enregistreur de macros me souffle ceci :

Sub Macro1()
Range("A1:A" & Range("a4567").End(xlUp).Row).Select
Selection.Copy
Sheets(Array("Feuil2", "Feuil3","Feuil4","Feuil5","Feuil6")).Select
Sheets("Feuil2").Activate
ActiveSheet.Paste
End Sub

à adapter
--
Avec plaisir
Philippe.R
"Denys" Bonjour à tous,

Comment, par VBA, puis-je copier une plage sans cesse grandissante
(Colonne A) et la coller dans seize autres feuilles sans que cela me
prenne une éternité ?

Merci

Denys


Philippe.R
Le #4666341
Bonne journée à toi
et bon courage
--
Avec plaisir
Philippe.R
"Denys" news:
Bonsoir Philippe,

Merci beaucoup....Je vais sauver de la place !!!

Bonne soirée

Denys

On 24 août, 12:23, "Philippe.R"
Bonsoir Denys,
Si par bonheur la plage de destination du collage est la même dans toutes
les feuilles, l'enregistreur de macros me souffle ceci :

Sub Macro1()
Range("A1:A" & Range("a4567").End(xlUp).Row).Select
Selection.Copy
Sheets(Array("Feuil2", "Feuil3","Feuil4","Feuil5","Feuil6")).Select
Sheets("Feuil2").Activate
ActiveSheet.Paste
End Sub

à adapter
--
Avec plaisir
Philippe.R
"Denys" denews:
Bonjour à tous,

Comment, par VBA, puis-je copier une plage sans cesse grandissante
(Colonne A) et la coller dans seize autres feuilles sans que cela me
prenne une éternité ?

Merci

Denys


Publicité
Poster une réponse
Anonyme