VBA copier coller pusieurs feuilles

Marsh Posté le 22-02-2006 à 14:42:25

salut,

J'aimerais copier une plage de la feuille1 d'excel et les recopier vers Toutes les autre feuilles....

j'ai tenté ceci mais comme je suis nul il doit y avoir un erreur enorme !! :pt1cable:

Code :

Private Sub CommandButton2_Click()
Sheets("feuil1" ).Cells("A1", ["H13"]).Select
Selection.Copy
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Sheets
Paste
Next Ws
End Sub

:bounce: :hello:

Reply

Marsh Posté le 22-02-2006 à 14:42:25

Reply

Marsh Posté le 23-02-2006 à 10:57:11

Quel est le problème, l'erreur, le non fonctionnement de ta procédure ?
« il doit y avoir un erreur enorme » n'est pas une description de problème, donc merci de préciser en quoi ton code ne fonctionne pas.

Reply

Marsh Posté le 23-02-2006 à 11:35:20

pardon...je précise

Ma procédure ne fonctionne pas, elle n'efface pas la plage dans toutes les feuilles mais ne le fait que dans l'active !
comment le faire dans toutes les feuilles ?

Reply

Marsh Posté le 23-02-2006 à 12:06:21

Sault Bebo*
Tu n'as pas précisé ou il fallait copier
si tu modifie le paste en :

Code :

ws.range("A1" ).select
Activesheet.paste

ça devrait aller mieux
Par ailleurs je m'interroge sur ton :
cells("A1",["H13"])
ca te fait quoi ?
@+

Edit : autre question tu veux coller les valeurs comme ta macro l'indique ou vider les cellules ?

Message édité par watashi le 23-02-2006 à 12:10:05

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Reply

Marsh Posté le 23-02-2006 à 15:13:45

J'aimerais copier le range A1: A13 de la feuille1 à toutes les autres feuilles..en fait !

Reply

Marsh Posté le 23-02-2006 à 16:04:53

Ben alors si tu modifies dans ton code ta sélection pour le copie en :

Code :

Sheets("Feuil1" ).Range("A1:A13" ).select

et que tu modifies ensuite ton paste comme je te l'avais indiqué ça devrait marcher non?

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

Reply

VBA copier coller pusieurs feuilles

Sujets relatifs:

Leave a Replay