Macro pur 2 feuilles différentes

Salut Marie Pierre,
copy intégralement ceci dans ton module
un copier-coller fait l'affaire
ceci fait 2 macros, donc une pour chaque feuille
Youky

Sub CC_feuil1()
Feuil1.Range("E38:G38").Copy Feuil1.Range("E11:G11")
Feuil1.Range("E13:G39").Delete Shift:=xlUp
Feuil1.Range("Q580:S605").Copy Feuil1.Range("E580:G605")
Feuil1.Range("A1").Select
End Sub
Sub CC_feuil2()
Feuil2.Range("E38:G38").Copy Feuil2.Range("E11:G11")
Feuil2.Range("E13:G39").Delete Shift:=xlUp
Feuil2.Range("Q580:S605").Copy Feuil2.Range("E580:G605")
Feuil2.Range("A1").Select
End Sub

<mboileau@hotmail.com> a écrit dans le message de news:
1152903800.089355.269880@i42g2000cwa.googlegroups.com...
Salut,

J'ai cette macro dans le module1. Lorsque je clique sur le bouton que
j'ai créé, la macro s'exécute.

Sub CC()

Range("E38:G38").Select
Selection.Copy
Range("E11:G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse

Range("E13:G39").Delete Shift:=xlUp

Range("Q580:S605").Select
Selection.Copy
Range("E580:G605").Select
ActiveSheet.Paste

Range("A1").Select

End Sub

Le problème est que cette macro ne doit s'appliquer qu'à la feuille 2
de mon classeur. Donc, je voudrais que lorsque je clique sur mon
bouton, cette macro s'applique à ma feuille 2 et uqe une autre macro
s'applique à la feuille 1. Que dois-je ajouter et où dois-je
insérer mon autre macro?

Merci
Marie-Pierre

Salut Marie Pierre

Pour que ta macro fonctionne juste sur la feuille2

Sub CC()

With Feuil2
.Range("E38:G38").Copy
.Range("E11:G11").PasteSpecial (xlPasteValues)
.Range("E13:G39").Delete Shift:=xlUp
.Range("Q580:S605").Copy .Range("E580:G605")
.Range("A1").Select
End With

End Sub

Si ton bouton doit traiter les deux feuilles

Sub CC()

With Feuil2
.Range("E38:G38").Copy
.Range("E11:G11").PasteSpecial (xlPasteValues)
.Range("E13:G39").Delete Shift:=xlUp
.Range("Q580:S605").Copy .Range("E580:G605")
.Range("A1").Select
End With

With Feuil1
.Range("E38:G38").Copy
.Range("E11:G11").PasteSpecial (xlPasteValues)
.Range("E13:G39").Delete Shift:=xlUp
.Range("Q580:S605").Copy .Range("E580:G605")
.Range("A1").Select
End With

End Sub

Les plages restent à adapter à ton application.

Mytå

Bonsoir * Marie-Pierre *

Le problème est que cette macro ne doit s'appliquer qu'à la feuille 2
de mon classeur.

deux en une
une macro pour traiter les deux feuilles

Sub sh()
Set rng = Sheets(Array("feuil1", "feuil2"))
For i = 1 To 2
rng(i).[E11:G11] = rng(i).[E38:G38].Value
rng(i).[E13:G39].Delete Shift:=xlUp
rng(i).[E580:G605] = rng(i).[Q580:S605].Value
Next i
rng(1).Activate
rng(1).[A1].Select
End Sub

Cordialement Abed_H

Salut,

J'ai cette macro dans le module1. Lorsque je clique sur le bouton que
j'ai créé, la macro s'exécute.

Sub CC()

Range("E38:G38").Select
Selection.Copy
Range("E11:G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse

Range("E13:G39").Delete Shift:=xlUp

Range("Q580:S605").Select
Selection.Copy
Range("E580:G605").Select
ActiveSheet.Paste

Range("A1").Select

End Sub

Le problème est que cette macro ne doit s'appliquer qu'à la feuille 2
de mon classeur. Donc, je voudrais que lorsque je clique sur mon
bouton, cette macro s'applique à ma feuille 2 et uqe une autre macro
s'applique à la feuille 1. Que dois-je ajouter et où dois-je
insérer mon autre macro?

Merci
Marie-Pierre