EXCEL - Macro sur feuille active au lieu de '' ''

Fermé
Math - 25 mars 2013 à 01:42
Bonjour,

Je cherche à mettre des macro sur un classeur Excel gigantesque!

J'ai trouvé la marco souhaité permettant de classer en ordre alphabétique (Z-A) cependant j'aimerais bien ne pas avoir a aller creer plusieurs macro pour chaque classeur

Si possible j'aimerais que la macro puisse s'appliquer selon la colonne active et selon la feuille active.

Qqun peut m'aider :)



Le code présent fonctionnant :

Sub Tri_Lecture_F()
'
' Tri_Lectures_F Macro
'

'
ActiveWorkbook.Worksheets("Biochimie").ListObjects("Tableau5").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Biochimie").ListObjects("Tableau5").Sort.SortFields. _
Add Key:=Range("F5:F1000"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Biochimie").ListObjects("Tableau5").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

A voir également: