Raccourcir un code VBA

[littleshoe]

Hello tout le monde,
J'espere que vous allez bien,

J'ai un petit souci: Etant nouveau sur VBA, mais voulant apprendre j'ai reussi a bidouiller un code pour une macro:

Sub Calculation()

Application.ScreenUpdating = False

    Sheets("LMV_product_Database").Select
    
    ActiveSheet.Unprotect "261191"
    Range("B1:B20000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("H1"), Unique:=True
    Range("H2:H1000").Select
    Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
    Range("C1:C20000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I1"), Unique:=True
    Range("I2:I1000").Select
    Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
    Range("D1:D20000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
    Range("J2:J100").Select
    Selection.Sort Key1:=Range("J2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        Application.ScreenUpdating = False

    ActiveSheet.Protect "261191"
    
    Application.ScreenUpdating = True
    
    Sheets("Calculation").Select
    Range("A1").Select

End Sub

Mon but etant de le raccourcir. Je ne vous demande pas de faire le travail mais si vous pouvez, de me donner des axes de progres sur la syntaxe, les proprietes a utiliser etc..

Je vous remercie d'avance,
Bonne journee

 

[Pierrot93]

Re : Raccourcir un code VBA

Bonjour,

Je ne vous demande pas de faire le travail mais si vous pouvez, de me donner des axes de progres sur la syntaxe, les proprietes a utiliser etc..

une remarque sur ton code, en vba les "select" et autres "activate" ne sont que très rarement utiles en vba.... tu peux très bien agir sur les objets sans les selectionner... ton code n'en sera que plus rapide...

bonne journée
@+