macro à une seule feuille ?

[Syntime]

Bonjour,

J'ai un fichier .xls comprenant 4 feuilles. J'ai créé une macro qui "devrait" s'appliquer à une seule feuille. Le problème est que cette macro s'applique aux 4 feuilles à la fois et fout le "bordel" dans les trois autres ! Comment forcer cette macro à ne s'appliquer qu'à une seule feuille ?

Voici à quoi elle ressemble :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 21/01/2004 par Syntime
'
' Touche de raccourci du clavier: Ctrl+z
'
Range("P4:Q15").Select
Selection.Copy
Range("D16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("P20").Select
Application.CutCopyMode = False
Range("C4:Q15").Select
Selection.Sort Key1:=Range("P4"), Order1:=xlDescending, Key2:=Range("Q4") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
True, Orientation:=xlTopToBottom
Range("D3:O17").Select
Selection.Sort Key1:=Range("D16"), Order1:=xlDescending, Key2:=Range( _
"D17"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=True, Orientation:=xlLeftToRight
Range("O22").Select
Sheets("Classement(s)").Select
Range("K23").Select
End Sub


D'avance je vous remercie.

 

[Marc]

Bonjour,

il faut dans la macro préciser la feuille sur laquelle elle doit travailler, sinon elle s'appliquera systématiquement sur la feuille ouverte.

sheets("Feuil1").select (Feuil1 ou le nom de la feuille)

avant

Range("P4:Q15").Select

A+

 

[Syntime]

Ca fonctionne à merveille.
Merci beaucoup !