Macro vba - bouton macro et onglet masque
alex
-
quicktibong Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
quicktibong Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro vba - bouton macro et onglet masque
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Numero masque - Guide
- Macro word - Guide
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)
Tu fais pareil pour l'autre feuille.
Cordialement,
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,
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
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
dois je inserer cette ligne qui me permettait d'acceder à la feuille "equipe" et ou dans votre partie de code ?
Sheets("equipe").Select
merci encore
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