Discussion :

[captainch]

Salut à tous,

Je fréquente ce forum depuis quelques mois et les réponses que j'y trouve sont vraiment pertinentes et utiles ce que j'apprécie énormément. J'espère pouvoir en faire de même une fois mieux formé mais en attendant voici mon premier post !

SUR EXCEL 2007 :

J'ai un tableau représentant un plan de maintenance de produits.

Une des colonnes de ce tableau représente la date de la prochaine maintenance et se greffent dessus un filtre automatique et une mise en forme conditionnelle (jeux de 3 icônes) pour différencier les dates.

Je suis parvenu à générer des boutons de type "Controle ActiveX" me permettant d'activer chaque filtre par jeux d'icônes.

CEPENDANT lorsque je verrouille ma feuille par un code en cochant les options :

-Sélectionner les cellules déverouillées
-Utiliser le filtre automatique

et en déverrouillant chaque bouton un à un j'ai un PROBLEME.

Lorsque je clique sur un des boutons voici le message de BUG rencontré en page de programmation VBA :

" erreur 1004, vous ne pouvez pas exécuter cette commande sur une feuille protégée. Pour pouvoir l'exécuter vous devez tout d'abord ôter loa protection de la feuille... "


Pensez vous que cela est possible d'avoir un bouton qui fonctionne sur une page protégée ?

Je vous remercie d'avance et Bon vent à tous !

CaptainCh

[kiki29]

Salut, [F1] sur Protect te donnera la réponse

[COCONUT2]

Kiki a raison.
En début de procédure, il faut dévérouiller la feuille

Code :

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

sheets("XXX").unprotect

puis la reprotéger en fin de procédure.

[captainch]

Merci à vous deux kiki29 et COCONUT2.

En effet, la réponse était sous mes pieds (comme bien souvent il me semble!)

Voici donc la syntaxe qui fonctionne pour mon utilisation

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
Private Sub CommandButton1_Click()
 
'Fin de protection de la feuille
 
        ActiveSheet.Unprotect ("password")
 
'Activation du filtre 1
 
        ActiveSheet.Range("$K$17:$K$499").AutoFilter Field:=11, Criteria1:= _
        ActiveWorkbook.IconSets(xl3TrafficLights1).Item(1), Operator:=xlFilterIcon
 
'Protection de la feuille Post-Macro
 
        ActiveSheet.Protect ("password"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
 
End Sub

Bonne continuation !

CaptainCh