Macro qui s'active dans plusieurs feuilles

Le 25/04/2019 à 19:56

ok, tu as éxécuté la macro ?

Le 26/04/2019 à 09:26

fronck a écrit :
ok, tu as éxécuté la macro ?

J'ai fait ça comme code et ça marche plutôt bien

Private Sub CommandButton1_Click()

Sheets(1).Unprotect Password:="BUFRA2020!"

Sheets(4).Unprotect Password:="JEN2048#"

Sheets(5).Unprotect Password:="JEN2048#"

Sheets(6).Unprotect Password:="IIN2020!"

Sheets(7).Unprotect Password:="CVA2041$"

Sheets(8).Unprotect Password:="HSE2045?"

Sheets(9).Unprotect Password:="CVA2042$"

Sheets("Suivi Projets").Select

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi Contrats").Select

ActiveSheet.ListObjects("Tableau3").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi Paies").Select

ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi Congés").Select

ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi Consultants").Select

ActiveSheet.ListObjects("Tableau6").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi VM").Select

ActiveSheet.ListObjects("Tableau7").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi FIDAA-PEI").Select

ActiveSheet.ListObjects("Tableau8").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi Détachement").Select

ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=7, Criteria1:= _

"En cours"

Sheets("Suivi Contrats").Select

Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="BUFRA2020!"

Sheets(4).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="JEN2048#"

Sheets(5).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="JEN2048#"

Sheets(6).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="IIN2020!"

Sheets(7).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2041$"

Sheets(8).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="HSE2045?"

Sheets(9).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2042$"

End Sub

Le 26/04/2019 à 11:10

Ah génial, bravo val.

Le 29/04/2019 à 13:21