Contrôler ma macro

Bonjour,

J'ai fait une macro qui semble être fonctionnel à partir de macro trouver sur le forum mais je souhaiterai que quelqu'un la contrôle si possible pour voir si j'ai bien compris.

Cette macro est utilisée sur 2 feuilles et est activé par boutons. Lle but est de déprotégé la feuille active, d'afficher toutes les données en cas d'application de filtres, d'effectuer un tri en fonction de 2 critères par ordre croissant et de protéger la feuille une fois fini.

Sub macro1()
    ActiveSheet.Unprotect
        On Error Resume Next
        ActiveSheet.ShowAllData
        On Error GoTo 0
    Range("E3:Z500").Select
    Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Key2:=Range("H3") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
    Range("F3").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

Bonjour

A 1ère vue elle doit fonctionner : Mais sans fichier pas sur à 100% (juste à 99,99%)

Tu aurais pu éviter la sélection des données (mais pas grave)

C'est tout pour moi

Après plusieurs test, je n'ai pas vu d'anomalies, c'est encourageant

Banzai64 a écrit :

Tu aurais pu éviter la sélection des données (mais pas grave)

en mettant juste ?

Range("E3:Z500")

Bonsoir

A tester

    Sub macro1()
        ActiveSheet.Unprotect
            On Error Resume Next
            ActiveSheet.ShowAllData
            On Error GoTo 0
        Range("E3:Z500").Sort Key1:=Range("F3"), Order1:=xlAscending, Key2:=Range("H3") _
            , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
            xlSortNormal
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    End Sub

Merci, je pensais que j'étais obligé de sélectionné chaque cellules avant de les traiter.

J'ai encore appris quelque chose aujourd'hui