Bloquer onglet excel
Fermé
KilyG
Messages postés
6
Date d'inscription
mercredi 6 mai 2009
Statut
Membre
Dernière intervention
7 mai 2009
-
6 mai 2009 à 16:13
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 7 mai 2009 à 14:07
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 7 mai 2009 à 14:07
A voir également:
- Figer un onglet excel
- Liste déroulante excel - Guide
- Figer colonne excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
6 réponses
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
7 mai 2009 à 12:16
7 mai 2009 à 12:16
1- tu ouvre le visual en tapant ALT+F11
2- dans la fenetre a droit tu double clike sur THIS WORKBOOK
3- a droite dans la fenetre blanche en haut deux case
- dans celle d'aguche tu ouvre la liste est tu choisie WORKBOOK
- puis dans celle a droite tu choisie open , tu efface tout tu copie coler sur code :
Private Sub Workbook_Open()
Sheets(Array("défenceur", "milieu", "attaquant")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
*- maintenant a l'ouverture seule la feuile acceuile sera visible
5- pour afficher seulment la feuile choisie en A2 :
1- tu insere une forme automatique sur la feuille acceuile ( cercle , triangle , ...)
2- clicke droit sur la forme > affecter une macro > nouvelle
3- tu vas etre direger sur le visual a la plce du cursseur tu insere le code suivnt ( entre les deux phrase Sub et END )
Dim choix As String
choix = Range("A2").Value
Sheets(choix).Visible = True
6- tu enregistre le fichier , ca devras marcher inchallah
2- dans la fenetre a droit tu double clike sur THIS WORKBOOK
3- a droite dans la fenetre blanche en haut deux case
- dans celle d'aguche tu ouvre la liste est tu choisie WORKBOOK
- puis dans celle a droite tu choisie open , tu efface tout tu copie coler sur code :
Private Sub Workbook_Open()
Sheets(Array("défenceur", "milieu", "attaquant")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
*- maintenant a l'ouverture seule la feuile acceuile sera visible
5- pour afficher seulment la feuile choisie en A2 :
1- tu insere une forme automatique sur la feuille acceuile ( cercle , triangle , ...)
2- clicke droit sur la forme > affecter une macro > nouvelle
3- tu vas etre direger sur le visual a la plce du cursseur tu insere le code suivnt ( entre les deux phrase Sub et END )
Dim choix As String
choix = Range("A2").Value
Sheets(choix).Visible = True
6- tu enregistre le fichier , ca devras marcher inchallah
Raymond PENTIER
Messages postés
58329
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 mars 2024
17 087
7 mai 2009 à 04:49
7 mai 2009 à 04:49
... alors c'est foutu !
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
7 mai 2009 à 12:52
7 mai 2009 à 12:52
j'ai oubliee suite a la procedure precedante ,
pour re masquer les onglet une fois de routour sur acceuille
1- dans la fenetre visual tu double clike sur Feuil1( acceuil )
2- tu choisie dans les case a droite WORKSHEET , ACTIVATE
3- tu cole le code suivant entre les deux phrase
Sheets(Array("défenceur", "milieu", "attaquant")).Select
ActiveWindow.SelectedSheets.Visible = False
bonne chane
pour re masquer les onglet une fois de routour sur acceuille
1- dans la fenetre visual tu double clike sur Feuil1( acceuil )
2- tu choisie dans les case a droite WORKSHEET , ACTIVATE
3- tu cole le code suivant entre les deux phrase
Sheets(Array("défenceur", "milieu", "attaquant")).Select
ActiveWindow.SelectedSheets.Visible = False
bonne chane
KilyG
Messages postés
6
Date d'inscription
mercredi 6 mai 2009
Statut
Membre
Dernière intervention
7 mai 2009
7 mai 2009 à 13:13
7 mai 2009 à 13:13
Merci beaucoup pour ton aide, pour l'instant ca ne marche pas sur mon ordi du boulot car le niveau de protection ne laisse pas passer les macros j'ai l'impression (même quand je le baisse au maximum) mais j'essayerai chez moi ce WE et je te tiens au courant.
Encore merci d'avoir pris le temps de me répondre.
Encore merci d'avoir pris le temps de me répondre.
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
7 mai 2009 à 13:30
7 mai 2009 à 13:30
une petit rectification sur le code de l'ouverture dans mon premier message tu la phrase tu ajoute la phrase en gras
Private Sub Workbook_Open()
on error resume next
Sheets(Array("défenceur", "milieu", "attaquant")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
2- pour le niveau de securité
- tu ouvre un fichier excel ( vide ) , menu OUTILS > macro > sécurité > niveau de sécurité > moyen ( 3éme case )
- enregistre le fichier , apres a chaque fois que tu ouvre un fichier excel il vas demander de activer les macro tu accepte
Private Sub Workbook_Open()
on error resume next
Sheets(Array("défenceur", "milieu", "attaquant")).Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
2- pour le niveau de securité
- tu ouvre un fichier excel ( vide ) , menu OUTILS > macro > sécurité > niveau de sécurité > moyen ( 3éme case )
- enregistre le fichier , apres a chaque fois que tu ouvre un fichier excel il vas demander de activer les macro tu accepte
KilyG
Messages postés
6
Date d'inscription
mercredi 6 mai 2009
Statut
Membre
Dernière intervention
7 mai 2009
7 mai 2009 à 13:52
7 mai 2009 à 13:52
Ok c'est bon j'en suis à :
1- tu insere une forme automatique sur la feuille acceuile ( cercle , triangle , ...)
Mais je ne sais pas comment le faire
Ppar contre c'est bon les macros sont activées et je n'ai plus que l'onglet accueil qui apparaît pour le moment :)
1- tu insere une forme automatique sur la feuille acceuile ( cercle , triangle , ...)
Mais je ne sais pas comment le faire
Ppar contre c'est bon les macros sont activées et je n'ai plus que l'onglet accueil qui apparaît pour le moment :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
7 mai 2009 à 14:07
7 mai 2009 à 14:07
menu affichage > barre d'outils > Dessin
2- tu vois la barre en bas , dans la liste forme automatique tu auras plus de choix
2- tu vois la barre en bas , dans la liste forme automatique tu auras plus de choix
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
6 mai 2009 à 16:23
6 mai 2009 à 16:23
en vba
KilyG
Messages postés
6
Date d'inscription
mercredi 6 mai 2009
Statut
Membre
Dernière intervention
7 mai 2009
6 mai 2009 à 16:28
6 mai 2009 à 16:28
Je ne maîtrise pas le VBA ;(