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