Discussion :

[free air]

Bonjour ,
j'ai une macro qui fonctionne très bien lorsque la feuille est non protégée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub TRI_01()
'
' TRI_01 Macro
' Macro enregistrée le 10/11/2007 par  Utilisateur
'
 
'
    Range("A12:C41").Select
    Selection.Sort Key1:=Range("B12"), Order1:=xlAscending, Key2:=Range("A12" _
        ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End Sub

mais qui ne fonctionne pas quand je protège la feuille.
le message suivant apparait :
Erreur d’exécution '1004':
La méthode Sort de la classe Range a échoué.

quel est le problème et comment je peux le résoudre ?

merci de votre aide

[Daniel.C]

Bonjour,

Tu ne peux pas trier sur une feuille protégée, même si tu as autorisé le tri... Tu peux contourner le problème en utilisant le parametre "userinterface:=true" de la méthode "Protect".

[free air]

Bonjour Daniel.C,
merci de te pencher sur mon problème. Mes connaissances en excel et VBA sont très limitées.
par contre désolé de te contredire mais il est possible de faire des tris dans des pages protégées.
d'ailleurs je te remercie, cela m'a permi d'aller comparer dans un fichier ou cela marche, les différences entre les 2 macros.
Comme je comprends pas grand chose à tous ce langage, j'ai simplement fait un copié-collé en changement les numéro de cellules... ce qui au final marche très bien
voici la macro de substitution:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub TRI_01()
'
' TRI_01 Macro
'
 
'
    Range("A12:C26").Select
    ActiveWorkbook.Worksheets("GESTION").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GESTION").Sort.SortFields.Add Key:=Range("B12:B41" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("GESTION").Sort.SortFields.Add Key:=Range("A12:A241" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("GESTION").Sort
        .SetRange Range("A12:C41")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

j'ai 16 macro de ce type dans mon fichier, il va donc falloir que je modifie les 15 autres... sauf si je comprends pourquoi, dans un fichier l'enregistrement de mes macros c'est fait correctement et pas dans l'autre???
il doit s'agir d'une mauvaise manip de ma part toute bête, mais j'arrive pas à mettre le doigt dessus....
si quelqu'un a une solution???

[Daniel.C]

par contre désolé de te contredire mais il est possible de faire des tris dans des pages protégées.

Faut pas être désolé, au contraire, c'est formateur pour nous deux. Tu peux uniquement trier des cellules non verrouillées. A partir du moment ou tu autorises le tri, on pourrait s'attendre à ce qu'on puisse le faire...
Le tri, tel que tu l'as publié dans ton premier message fonctionne ici. Le problème doit venir de ta feuille. Est-ce que tu poster un classeur de test - sans données confidentielles - en pièce jointe ?

[free air]

Bonjour

voici les 2 fichiers :
- le fichier minimes fonctionne sans problème
- le fichier poussines pose problème.
j'ai désactivé les protections.

Je vois pas pourquoi cela diffère entre les 2

[Daniel.C]

Bonjour,

En protégeant la feuille GESTION, j'ai une erreur avec le bouton TRI 2. C'est normal vu que certaines cellules du tri (H41 par exemple) sont verrouillées. Tu dois les déprotéger pour pouvoir trier.

[free air]

merci Daniel.C de te pencher sur mon pb qui commence à me rendre

en fait c'est normal que :
- les cellule de la colonne H soit verrouillées. Le but étant que seules les cellules en blanc puissent être modifiées, et toutes les autres sont protégées afin d'éviter certaine manip malheureuse de l'utilisateur.
- le tri01 marche puisque je j'ai fait un copié-collé du code de celui des minimes.
ce que je n'ai pas fait pour le tri02, le tri03.... le code n'est donc pas le même. En tri02 cela marche quand la feuille n'est pas protégée mais ne marche pas avec la protection de feuille.

En fait ce que je ne comprends pas c'est ce qui a différé entre la conception du fichier minime et de celui poussines.
Nb : mes macros sont créées par enregistrement de l'action a réalisée (le code s'écrivant donc tout seul).
lors de la création ou après la création, est-ce que je dois faire quelque chose en particulier pour que la macro officie avec la protection de feuille

[Daniel.C]

Génial !

Le tri "XL2007" arrive bien à trier des cellules verrouillées ! Maintenant, si tu ne veux pas tout modifier, exécute cette macro, une fois pour toutes (ou à chaque fois que tu déprotégeras / protégeras la feuille :

Code :

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

1
2
3
4
Sub Protege()
    Sheets("GESTION").Unprotect Password:="MDP"
    Sheets("GESTION").Protect Password:="MDP", AllowSorting:=True, Contents:=True, userfaceinterfaceonly:=True
End Sub

ou alors, mets cette ligne en début de chaque tri :

Code :

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

Sheets("GESTION").Unprotect Password:="MDP"

et celle-ci en fin d macro :

Code :

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

Sheets("GESTION").Protect Password:="MDP"

[free air]

Génial !

pas mieux

un grand grand


Juste par curiosité, pourquoi faut-il que je tape ce code dans chaque macro. cela ne peut-il pas se faire automatiquement lors de l'enregistrement des actions ?