Nom de la feuille active dans une macro

Bonsoir à tous

Je souhaite utiliser la même macro dans différentes feuilles.

Comment faire, pour ne pas la modifier en nommant la feuille active à chaque fois.

Merci

Gérard62

Bonsoir,

Une vérité digne du marquis de La Palice ...

Cela dépend de ton code ... qu'il vaudrait mieux poster ... pour une réponse adaptée ...

Re Bonsoir

En dessous la macro avec en rouge, ce que souhaite ne pas devoir changer pour chaque feuille.

Range("A48").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.Worksheets("fiche-vierge").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("fiche-vierge").Sort.SortFields.Add Key:=Range( _

"A48:OJ48"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("fiche-vierge").Sort

.SetRange Range("A48:OJ48")

.Header = xlGuess

.MatchCase = False

.Orientation = xlLeftToRight

.SortMethod = xlPinYin

.Apply

End With

Re,

Tu as deux possibilités :

1. La première : tu décides de te placer sur la Feuille avant de lancer ta macro ... dans ce cas, tu peux utiliser :

ActiveSheet

à la place de :

ActiveWorkbook.Worksheets("fiche-vierge")

2. La seconde : tu ne veux lancer ta macro qu'une seule fois ... pour qu'elle effectue le tri dans toutes tes feuilles...

Dans ce cas, il faut en savoir un peu plus sur ton fichier ...

OK, merci je vais essayer

A+

Re,

Si tu rencontres des difficultés ... il ne faut pas hésiter à reposter un message ...