XL 2016 Utiliser la fonction de Tri en mode Protect

Laurent97310 · 7 Mai 2021

Bonjour,

Je cherche une solution pour pouvoir protéger une feuille, tout en pouvant utiliser les fonctions de Tri.
Lorsque je protège ma feuille et que je clique sur Tri et Filtre, seul le filtre et encore possible. Si j'essaie de trier les données, Excel me dit que les celulles sont protégées. Pour pouvoir trier, il faut rajouter une plage dans "Permettre la modification des plages" mais l'utilisateur peut du coup écrire dans les cellules.
Existe t'il une solution pour autoriser le tri en mode Protect, tout en protégeant les cellules contre l'écriture?

J'ai passé plusieurs heures à chercher sur les différents forums anglais ou français mais sans succès.

Merci d'avance,

youky(BJ) · 7 Mai 2021

Bonjour Laurent,
Tu as été voir ici en protégeant c'est tout en bas

Bruno

Laurent97310 · 7 Mai 2021

Oui malheureusement, seul le filtre est encore fonctionnel. Le tri ne fonctionne pas et apparemment je ne suis pas le seul vu le nombre de postes à ce sujet.

Fred0o · 7 Mai 2021

Bonjour Laurent97310, youky(BJ)

Pour que le tri fonctionne sur un classeur protégé, il te faut déverrouiller les cellules que tu veux trier, dans "Clic-droit, Format Cellule, Protection..."

Columbo · 11 Mai 2021

Bonjour à tous,
Par défaut les cellules sont verrouillées.

Lorsqu'on active la protection de la feuille en passant par Révision, même si le tri est sélectionné,

il est impossible de trier les données

En faisant la technique de Fred0o, cela fonctionne mais les données peuvent-être modifiées.

J'ai cherché sur un autre forum, certains ont proposé un code VBA à mettre dans le private module de la feuille de manière à double cliquer sur une des cellules pour que le tableau se trie automatiquement.
Voici le code mais ça ne fonctionne pas chez moi:

Option Explicit
Private Const MDP As String = "MDP"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim SortAddress As String
With ActiveSheet
.Unprotect MDP
If Intersect(ActiveCell, Range("A1").CurrentRegion) Is Nothing Then Exit Sub
SortAddress = ActiveCell.Address(0, 0)
.Range("A1").CurrentRegion.Sort Key1:=Range(SortAddress), Order1:=xlAscending, Header:=xlYes
.Protect MDP
End With
Cancel = True
End Sub

source : https://www.excel-downloads.com/thr...ter-la-protection-de-la-feuille-excel.120705/

Laurent97310 · 11 Mai 2021

Finalement, j'ai fait un peu ce que Columbo propose mais manuellement. Il suffit de sélectionner la colonne à trier puis de cliquer sur la macro pour que ça trie. Le code est surement pas propre mais ça fonctionne quelque soit la page sur mon projet:

VB:

Static Sub TriColonne()
Dim sens As Boolean
Dim wrksht As Worksheet
Dim oListObj As ListObject

Application.ScreenUpdating = False
Call ProtectSoloOFF 'Unprotect

Feuille = ActiveSheet.Name
Set wrksht = ActiveWorkbook.Worksheets(Feuille)
Set oListObj = wrksht.ListObjects(1)
Tableau = oListObj.Name

Columnadress = ActiveCell.Column

Var = Cells(10, Columnadress) 'Mon tableau commence à la ligne 10

If Columnadress < 14 Then 'Colonne fin de tableau
Select Case bSens
        Case True
    ActiveWorkbook.Worksheets(Feuille).ListObjects(Tableau).Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets(Feuille).ListObjects(Tableau).Sort.SortFields. _
        Add Key:=Range(Tableau & "[[#All],[" & Var & "]]"), SortOn:=xlSortOnValues, _
        Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(Feuille).ListObjects(Tableau).Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Case False
    ActiveWorkbook.Worksheets(Feuille).ListObjects(Tableau).Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets(Feuille).ListObjects(Tableau).Sort.SortFields. _
        Add Key:=Range(Tableau & "[[#All],[" & Var & "]]"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(Feuille).ListObjects(Tableau).Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End Select
 
    bSens = Not bSens
End If
Call ProtectSoloON 'Unprotect
Application.ScreenUpdating = True
    
End Sub

Columbo · 11 Mai 2021

Bonjour Laurent,
J'ai repris ton code, je l'ai mis dans un nouveau module. La feuille est protégée ainsi que les données.
La colonne A est sélectionnée, je lance le code mais il bloque "Call ProtectSoloOFF 'Unprotect"
J'ai tenté de mettre le code dans la feuille directement ça fait pareil.

Laurent97310 · 11 Mai 2021

C'est normal c'est ma macro pour déprotéger la feuille avant d'effectuer le tri:

VB:

Sub ProtectSoloOFF()

ActiveSheet.Unprotect

End Sub

puis à la fin pour reprotéger (avec mes paramètres propres à mon projet):

Code:

Sub ProtectSoloON()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True, AllowFiltering:=True
End Sub

Columbo · 11 Mai 2021

Laurent97310,
Je n'arrive pas à faire le tri avec la macro que tu mentionnes.
Je joins un fichier test protégé avec la macro dans l'onglet.
Quand je fais tourner la macro, j'ai le message suivant qui s'affiche et rien n'est trié:

Merci pour ton aide

youky(BJ) · 11 Mai 2021

Bonjour tous,
Voici corrigé les macros qu'il faut placer dans un module.
Bruno

Columbo · 11 Mai 2021

Merci Bruno
Le code fonctionne très bien.
A bientôt

XL 2016 Utiliser la fonction de Tri en mode Protect

Laurent97310

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Laurent97310

XLDnaute Nouveau

Fred0o

XLDnaute Barbatruc

Pièces jointes

Columbo

XLDnaute Nouveau

Laurent97310

XLDnaute Nouveau

Columbo

XLDnaute Nouveau

Laurent97310

XLDnaute Nouveau

Columbo

XLDnaute Nouveau

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Columbo

XLDnaute Nouveau

Discussions similaires