Macro vba - bouton macro et onglet masque
Bonjour,
De meme que ma question precedente, peut on faire apparaitre et disparaitre des onglets masqués mais non pas en appuyant sur des liens hypertexte mais en appuyant sur des boutons (ps : mon code qui marche pour les liens hypertextes est :)
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
With Sheets(Split(Target.SubAddress, "!")(0))
If .Visible = False Then
.Visible = True
Application.Goto .Range(Split(Target.SubAddress, "!")(1))
End If
End With
End Sub
Private Sub Worksheet_Activate()
If Sheets("equipe").Visible = True Then Sheets("equipe").Visible = False
If Sheets("joueurs").Visible = True Then Sheets("joueurs").Visible = False
End Sub
merci d'avance
De meme que ma question precedente, peut on faire apparaitre et disparaitre des onglets masqués mais non pas en appuyant sur des liens hypertexte mais en appuyant sur des boutons (ps : mon code qui marche pour les liens hypertextes est :)
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim s As String
With Sheets(Split(Target.SubAddress, "!")(0))
If .Visible = False Then
.Visible = True
Application.Goto .Range(Split(Target.SubAddress, "!")(1))
End If
End With
End Sub
Private Sub Worksheet_Activate()
If Sheets("equipe").Visible = True Then Sheets("equipe").Visible = False
If Sheets("joueurs").Visible = True Then Sheets("joueurs").Visible = False
End Sub
merci d'avance
2 réponses
-
Bien sur, onglet développeur, insérer, bouton (contrôle de formulaire) et tu affecte cette macro dessus : (un bouton ouvre une feuille)
sub ourir_fermer_equipe() if Sheets("equipe").Visible = True Then Sheets("equipe").Visible = False exit sub end if if Sheets("equipe").Visible = false Then Sheets("equipe").Visible = true exit sub end if 'ce code ouvre ou ferme la feuille équipe end sub
Tu fais pareil pour l'autre feuille.
Cordialement,-
-
-
-
Ah ok, alors :
sub ourir_fermer_equipe() if Sheets("equipe").Visible = True Then Sheets("equipe").Visible = False Sheets("accueil").select exit sub end if if Sheets("equipe").Visible = false Then Sheets("equipe").Visible = true Sheets("equipe").select exit sub end if 'ce code ouvre ou ferme la feuille équipe end sub
-
-
Bonjour,
je viens updater le sujet car j'aimerai appliquer cette macro ourir_fermer_equipe()
mais à plusieurs onglets en même temps.
La macro suivante me va très bien :
sub ourir_fermer_equipe()
if Sheets("equipe").Visible = True Then
Sheets("equipe").Visible = False
exit sub
end if
if Sheets("equipe").Visible = false Then
Sheets("equipe").Visible = true
exit sub
end if
'ce code ouvre ou ferme la feuille équipe
end sub
Mais je n'arrive pas à trouver la bonne syntaxe pour que l'appliquer à plusieurs onglets en même temps sans avoir à l'écrire autant de fois que j'ai d'onglets.
Merci d'avance à tous pour votre aide.
Leslie
