29 mai 2017

Y a-t-il une macro pour restaurer l'intelligence ?

GSM

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... Et pourtant, elle tourne, c'est moi qui l'ai faite !!!

Posté par zalandeau à 09:22 - Commentaires [6] - Permalien [#]
Tags :