VBA: Trier sans le nom de l'onglet dans la formule

[Pierre Aebischer]

Hello,
Pour une fois, je n'ai pas trouvé la solution dans le forum (peut-être n'ai je pas assez essayé)

Contexte: J'automatise un document avec un nombre variable d'onglets et pour chaque onglet je souhaite utiliser la même formule (code VBA) afin de trier mes données.

Mon problème: Je ne sais pas comment faire la formule pour trier sans le nom de l'onglet... ou pour insérer le nom de l'onglet dans ma formule.

Situation actuelle: j'insère le nom de l'onglet dans la cellule K1 (=STXT(CELLULE("filename";A1);TROUVE...) selon ce que j'ai vu dans votre forum. Par contre je n'arrive pas à trouver le bon code pour le VBA...

Code actuel:
ActiveWorkbook.Worksheets("Client 1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Client 1").Sort.SortFields.Add Key:=Range("P2😛500") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Client 1").Sort.SortFields.Add Key:=Range("Q2:Q500") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Client 1").Sort
.SetRange Range("M1:T500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

J'ai essayé avec:
ActiveWorkbook.Worksheets(" & Range("K1").Value &").Sort.SortFields.Clear
ActiveWorkbook.Worksheets(" & Range("K1").Value &").Sort.SortFields....Mais ça ne marche pas

Avez-vous une solution?
Merci par avance

 

[pierrejean]

Re : VBA: Trier sans le nom de l'onglet dans la formule

bonjour Pierre

a tester:

nom=Range("K1").Value
ActiveWorkbook.Worksheets(nom).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(nom).Sort.SortFields...

 

[Pierre Aebischer]

Re : VBA: Trier sans le nom de l'onglet dans la formule

Génial, ça marche
Merci beaucoup, vous êtes top