bonjour
je commence à faire quelques macro sous excell 2007. J ai fait une macro de tri avec plusieures criteres. Cette macro s'apllique à une zone définie Range("AH400" ). Pour aller plus vite, j aimerai appliquer ma macros à partir d'une cellule selectionnée:
exemple
au lieu d appliquer toujours a la zone A4:AH400 je desire sois commencer à la cellule a6 ou a8, .... suivant les cas
comment puis je modofier ma macro pour prendre en compte le debut de ma zone à selectionner pour effectuer mon tri. Voici ma macro
--------------------------------------------------------------------------------
Sub TRI_STATUT_POSITION14()
' SELECTION ZONE A TRIER
Sheets("POS 14" ).Select
Range("A4:AH400" ).Select
Range("AH400" ).Activate
' TRI_SUR_FEUILLE Macro
ActiveWorkbook.Worksheets("POS 14" ).Sort.SortFields.Clear
ActiveWorkbook.Worksheets("POS 14" ).Sort.SortFields.Add Key:=Range( _
"AA4:AA400" ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("POS 14" ).Sort.SortFields.Add Key:=Range( _
"X4:X400" ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("POS 14" ).Sort.SortFields.Add Key:=Range( _
"E4:E400" ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("POS 14" ).Sort
.SetRange Range("A4:AH400" )
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' RETOUR CELLULE DEBUT
Range("A4" ).Select
End Sub
------------------------------------------------------------------------------
j espére avoir été assez clair et merci d'avance
a+ gilbs
