Créer un même bouton Afficher/Masquer certaines Feuilles

[un internaute]

Bonjour le forum,
Comme dit dans le titre je veux créer un même bouton qui Affiche & Masque certaines feuilles

Macro Masquer

Sub Masquer() For Each Sh In Array("Toto1", "Toto2",("Toto3")
Sheets(Sh).Visible = xlVeryHidden
Next Sh
End Sub

Merci d'avance
Bien cordialement

 

[M12]

Bonjour,

A voir

 

[un internaute]

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

 

[chris]

Bonjour

C'est ce que fait le code de M12. Que lui reproches-tu ?

 

[un internaute]

Bonjour

C'est ce que fait le code de M12. Que lui reproches-tu ?

 

[un internaute]

Bonjour

C'est ce que fait le code de M12. Que lui reproches-tu ?

Oui mais ce n'est pas un bouton rectangle.
Je vais "tenter" de le faire comme j'ai l'habitude mais ce n'est pas gagné!!!
Merci quand même
Bonne fin de WE

 

[chris]

Re

Oui mais ce n'est pas un bouton rectangle.

Si quelqu'un comprend, qu'il m'explique !

 

[M12]

Bonjour à tous,
Bonjour Chris,

Je pense qu'il veut un bouton bascule depuis une forme EXCEL

A tester et à mettre à ta sauce

 

[un internaute]

Bonsoir à tous,
Voilà ce que je voulais
Merci à toi M12

Sub AfficherMasquerOnglets()
Dim Ws As Worksheet, Feuille As Worksheet
Dim LesFeuilles, Affiche As Integer
Affiche = xlSheetVeryHidden
Set Ws = ActiveSheet
Application.ScreenUpdating = False
LesFeuilles = Array("Toto1", "Toto2", "Toto3")
If Sheets(LesFeuilles(0)).Visible = xlSheetVeryHidden Then Affiche = True
For Each Feuille In Sheets(LesFeuilles)
With Feuille
.Unprotect
.Visible = Affiche
.Protect
End With
Next Feuille
End Sub

Bonne fin de soirée à tous
Cordialement

 

[M12]

Bonsoir,

Sauf que cela n'a rien à voir avec ta 1er Question, comme quoi, une question ou demande bien demandée sera résolu plus facilement 😉

 

[un internaute]

Bonsoir,

Sauf que cela n'a rien à voir avec ta 1er Question, comme quoi, une question ou demande bien demandée sera résolu plus facilement 😉

Bonjour M12,
Effectivement j'ai changé mon "fusil d'épaule"!!!...et ça rien à voir.
Merci en tout cas pour tes réponses.
Bonne journée à toi
Cordialement