Macro vba - bouton macro et onglet masque

Fermé

alex - 21 juin 2012 à 15:30
quicktibong Messages postés 1 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 11 mars 2013 - 11 mars 2013 à 18:02

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

A voir également:

Macro vba - bouton macro et onglet masque
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Appel masqué - Guide
Macro recorder - Télécharger - Confidentialité

2 réponses

Réponse 1 / 2

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153
Modifié par eljojo_e le 21/06/2012 à 16:14

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,

alex
21 juin 2012 à 17:01

la feuille se masque bien mais mon bouton ne marche plus.. arf je suis mauvais.

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

alex
21 juin 2012 à 17:02

avec votre code, j'ai juste ma feuille equipe qui se masque..

alex
21 juin 2012 à 17:15

c'est bien ca: donc quand je clique sur le bouton, la feuille apparait, puis quand je reclique elle disparait. mais a aucun moment je ne vais dessus..

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 153
Modifié par eljojo_e le 22/06/2012 à 08:19

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

Réponse 2 / 2

quicktibong Messages postés 1 Date d'inscription lundi 11 mars 2013 Statut Membre Dernière intervention 11 mars 2013
11 mars 2013 à 18:02

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

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Rappeler un numéro inconnu

Comment faire un masque sous word ?

Bouton ON OFF, O ou I ?

Discussions similaires

Newsletters