Cette
macro sur excel a pour but de trier suivant l'indice le plus récent
parait-il ! Je l'avais écrite en 2004, ainsi qu'une vingtaine
d'autres macros, quand j'avais conçu une gestion de documents... Je n'y
comprends plus que couic, j'entrave que dalle, j'y pige nib... Non rien
de rien, non, je ne comprends plus rien... Voila les effets dévastateurs
du temps, de la vieillesse et de l'altération prématurée de la
cognitivité...
Sub TriGénéralDernierIndice()
'
' TriGénéralDernierIndice Macro
' Macro enregistrée le 28/11/2004 par XXXXXXXXX
'
' Touche de raccourci du clavier: Ctrl+Maj+D
'
Dim vLigne As String
Sheets("GESTION DOCS").Select
ActiveSheet.Unprotect Password:="xxxxxxxxx"
Range("R5").Select
ActiveCell.FormulaR1C1 = "TRI AU DERNIER INDICE"
If Range("DZ13").Value = "DA" Then
Selection.AutoFilter Field:=67
End If
If Range("EA13").Value <> "TGD" And Range("EA13").Value <> "BADI" Then
Range("A14").Select
Selection.End(xlDown).Select
vLigne = Selection.Row
Range("A14").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Selection.AutoFilter Field:=11, Criteria1:="<>""""", Operator:=xlAnd
Rows("14:" + vLigne).Sort Key1:=Range("K13"), Order1:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortTextAsNumbers
Selection.AutoFilter Field:=64, Criteria1:="<>""""", Operator:=xlAnd
Rows("14:" + vLigne).Sort Key1:=Range("BL13"), Order1:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortTextAsNumbers
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=64
End If
Selection.AutoFilter Field:=65, Criteria1:="DI"
Selection.AutoFilter Field:=66
If Range("DZ13").Value = "DA" Then
Selection.AutoFilter Field:=67, Criteria1:="DA"
End If
ActiveWindow.ScrollRow = 14
Range("A14").Select
Range("EA13").Value = "DI"
ActiveSheet.Protect Password:="lessat", DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
' ActiveWindow.SmallScroll ToRight:=34
' ActiveWindow.ScrollRow = 258
C'est pas beau de vieillir...
Aucun commentaire:
Enregistrer un commentaire