Discussion :

[skan_one]

Bonjour,

Je n'arrive pas a faire un tri sur une plage d'une feuille protégée.
Avant la protection, le code suivant fonctionnait parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ThisWorkbook.Sheets("ParametresCpty").Range("A2:C" & rowCount).Sort _
Key1:=ThisWorkbook.Sheets("ParametresCpty").Range("A2"), _
Order1:=xlAscending, _
header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlSortColumns

rowCount représente le rang de la dernière à trier, et la 2ème ligne contient bien les en-tête des colonnes.

Message d'erreur :"La méthode sort a échoué"

Voici le code qui protège la feuille (dans le module "thisworkbook") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
 
ThisWorkbook.Sheets("ParametresCpty").Protect _
Password:="pstrow56", userinterfaceonly:=True
 
End Sub

Merci pour votre aide!

[aalex_38]

Une solution simple consiste à déprotéger la feuille en début de code et à la reprotéger ensuite.