Bonjour le forum,
Je n'ai pu répondre plutôt, toutes mes excuses.
J'aimerais le faire comme la macro ci-dessous
Même bouton Afficher/Masquer (exemple ci-dessous) mais je ne sais pas le faire!!!
Sub AfficherMasquerOnglets()
Dim Ws As Worksheet
Dim Sh As Shape
Dim Nom As String
Application.ScreenUpdating = False
Set Sh = ActiveSheet.Shapes(Application.Caller)
With Sh.TextFrame.Characters
'On compare les 8 caractères de gauche(Left)en Majuscule(UCase)du Texte du bouton avec les caractères en Majuscule(UCase)du mot "protéger".
If UCase(Left(.Text, 8)) = UCase("protéger") Then
.Text = "Déprotéger Onglet"
For Each Ws In Worksheets
Ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next Ws
Else
For Each Ws In Worksheets
Ws.Unprotect
Next Ws
.Text = "Protéger Onglet"
End If
End With
End Sub
J'ai fait manuellement (nouvelle macro)
Sub MasquerOnglets()
Sheets(Array("Toto1", "Toto2")).Select
Sheets("Toto1", "Toto2").Activate
ActiveWindow.SelectedSheets.Visible = False
End Sub
Sub AfficherOnglets()
Sheets("toto1").Visible = True
Sheets("Toto2").Visible = True
End Sub
Où faut-il insérer les lignes des 2 macros faites manuellement?
Merci d'avance pour vos éventuels retour
Bien cordialement