Discussion :

[jerem1]

Bonjour à tous
J'ai un problème dont je n'arrive pas à venir à bout
je dispose de 2 feuille. L'une d'elle se nomme "inspection" et l'autre "feuille de calcul"
J'ai la macro ci - dessous, le problème est que je protege la feuille nommé "feuille de calcul" par le code "je"
j'essaye de mettre ActiveSheet.Unprotect "je" au début de la macro & ActiveSheet.Protect "je" à la fin mais rien n'y fait car ma macro se lance grâce au bouton sur la feuille "inspection"
Voila ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro_filtre_sous_30jours_inspections()
'
Worksheets("feuille de calcul").Range("A43") = ">" & Worksheets("feuille de calcul").Range("B39")
 
Worksheets("feuille de calcul").Range("B43") = "<=" & Worksheets("feuille de calcul").Range("E39")
'Je selectionne la feuille "inspection"
    Sheets("Inspection").Select
 
    Range("A3:K5000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("feuille de calcul").Range("A42:B43"), Unique:=False
    ActiveWindow.SmallScroll Down:=-2
'je selectionne la cellule D 5003
    Range("D5003").Select
End Sub

Merci d'avance

[jfontaine]

Bonjour,

essaie en nommant la feuille

Code :

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

Worksheets("feuille de calcul").unprotect

a la nplace de activesheet

[hben1961]

Bonjour à tous,

Normalement la commande pour enlever la protection de la feuille est :

Code :

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

ActiveSheet.Unprotect Password:="je"

et pour la protection ça sera:

Code :

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

ActiveSheet.Protect Password:="je"

Et ton code sera écrit de la façon suivante:

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
Sub Macro_filtre_sous_30jours_inspections()
'
Sheets("feuille de calcul").Unprotect Password:="je"
 
Worksheets("feuille de calcul").Range("A43") = ">" & Worksheets("feuille de calcul").Range("B39")
Worksheets("feuille de calcul").Range("B43") = "<=" & Worksheets("feuille de calcul").Range("E39")
'Je selectionne la feuille "inspection"
Sheets("Inspection").Select
Range("A3:K5000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("feuille de calcul").Range("A42:B43"), Unique:=False
ActiveWindow.SmallScroll Down:=-2
'je selectionne la cellule D 5003
Range("D5003").Select
 
Sheets("feuille de calcul").Protect Password:="je"
 
End Sub

Cordialement