Microsoft 365 TRIER SUR FEUILLE PROTEGER

[dd_76]

Bonjour a tous les experts,

j'ai besoin de votre aide
J'ai un fichier Excel qui est protégé par un mot de passe : 987
je souhaite pouvoir trier via un bouton sur la colonne N° de dossier (colonne B)
Car il peut y avoir une saisie de numéro de dossier qui ne suis pas la chronologie et je souhaite pouvoir les trier

j'ai essayé plusieurs code VBA mais je n'arrive pas

merci de votre aide
a bientôt

 

[sousou]

bonjour
tu peux mettre ce code
Sub trie()
With Sheets("registre")
.Unprotect ("987")


.ListObjects("Tableau1").Sort.SortFields.Add Key:=Range("Tableau1[[#All],[N° DOSSIER]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.ListObjects("Tableau1").Sort.SortFields.Clear
.Protect ("987")

End With
End Sub

 

[sousou]

N'oublie pas de dévérrouiller le bouton sinon il sera plus accessible, dans propriétés de celui-ci

 

[Volvo64400]

Bjr,

Ou ça

 

[dd_76]

Un grand merci a vous deux tout fonctionne
merciii
belle journée

 

[patricktoulon]

Bonjour
normalement ce devrait être ça mais ca ne fonctionne pas

Sub Bttri_Cliquer()

    Sheets("Registre").Unprotect "987"
    DoEvents
    ActiveWorkbook.Worksheets("Registre").ListObjects("Tableau1").Sort.SortFields. _
            Add Key:=Range("Tableau1[[#All],[Date de pose]]"), SortOn:=xlSortOnValues, _
                Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Registre").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Registre").Protect "987", AllowSorting:=True, AllowFiltering:=True
End Sub

 

[dd_76]

Oups désolé je me suis avancé trop vite.
la code de @sousou fonctionne car il trie correctement
mais quand je trie et que part la suite je souhaite filtre sur des n° de dossier, je n'ai plus accès au filtre

 

[sousou]

Tu n'avais pas préciser ce que tu voulais garder une fois la protection faite
modifie comme ceci pour autoriser le filtre et les tries (voir code de patrick)
.Protect ("987"), AllowSorting:=True, AllowFiltering:=True et plus si nécessaire....

 

[dd_76]

Oui en effet j'ai oublié de préciser
merci pour le complément de code

tout fonctionne
une grand merci