empecher l'affichage des onglets

M

Marc_du_78

XLDnaute Accro

• 28 Avril 2006

• #2

Bonsoir rice,
Tout d'abord, il faut que tu laisses au minimum une feuille visible dans ton Classeur, Excel ne supporte pas que toutes les Feuilles soient masquées. Essaie :
Worksheets('Feuil1').Visible = xlSheetHidden
ou encore
Worksheets('Feuil1').Visible = xlSheetVeryHidden
Et ceci pour rétablir :
Worksheets('Feuil1').Visible = xlSheetVisible
Bon week end

 

Vote positif 0 Vote négatif

R

rice

Guest

• 28 Avril 2006

• #3

merci Marc mais je ne sais pas où je mets la ligne en question et comment je fais si j'ai par exemple 3 feuilles pour laisser seulement la premiere apparente
Désolé mais un petit fichier exemple me dépannerait bien
Merci d'avance

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Avril 2006

• #4

re,
Il suffisait de demander. [file name=MasquerFeuille.zip size=4591]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MasquerFeuille.zip[/file]

 

Pièces jointes

• MasquerFeuille.zip

  4.5 KB · Affichages: 35
• MasquerFeuille.zip

  4.5 KB · Affichages: 37
• MasquerFeuille.zip

  4.5 KB · Affichages: 35

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Avril 2006

• #5

excuse-moi, ce fichier est mieux. [file name=MasquerFeuille2.zip size=6563]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MasquerFeuille2.zip[/file]

 

Pièces jointes

• MasquerFeuille2.zip

  6.4 KB · Affichages: 48

Vote positif 0 Vote négatif

R

rice

Guest

• 28 Avril 2006

• #6

ok merci Marc mais est-ce qu'il est aussi possible de faire en sorte que la feuille ne puisse réapparaitre en faisant Format, Feuille afficher et sélectionner la feuille 2 dans ton exemple?
Merci

 

Vote positif 0 Vote négatif

R

rice

Guest

• 29 Avril 2006

• #7

bravo, tu as répondu à ma question avant que je la pose
Merci beaucoup

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 29 Avril 2006

• #8

réponse fournie avant la demande.
Je m'étais fourvoyé dans le code.

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 29 Avril 2006

• #9

Bonsoir Marc, rice

Aussi il y a :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('A1') = 1 Then
ActiveWindow.DisplayWorkbookTabs = True
Else
ActiveWindow.DisplayWorkbookTabs = False
End If
End Sub

Si tu ne met pas 1 en cell (caché) A1 il ne peuvent pas cocher afficher les onglets

A+

Temjeh

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 29 Avril 2006

• #10

Bonjour Temjeh, le Forum,
Merci pour cette information que je note soigneusement.
Bon week-end.

 

Vote positif 0 Vote négatif

R

rice

Guest

• 29 Avril 2006

• #11

Bonjour et merci à tous les deux
J'ai craqué et me suis couché car il était un peu tard quand on a commencé ce fil mais je vais mettre en oeuvre l'une des deux possibilités
Bonne journée

 

Vote positif 0 Vote négatif

R

rice

Guest

• 29 Avril 2006

• #12

bon, j'avoue, je coince
Je vais mettre le fichier sur lequel je travaille ce sera plus simple
En fait quand j'utilise le code de masquage je ne peux plus accéder à la feuille cachée mais malheureusement j'ai des tableaux statistiques sur cette feuille et une macro sur la feuille 1 qui reste visible
Je mets le fichier pour que vous compreniez mieux mon souci (pour l'instant je le laisse dans l'état initial avant que je pose la question sur ce fil
Merci d'avance [file name=parjour_20060429091304.zip size=46639]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/parjour_20060429091304.zip[/file]

 

Pièces jointes

• parjour_20060429091304.zip

  45.5 KB · Affichages: 19

Vote positif 0 Vote négatif

R

rice

Guest

• 29 Avril 2006

• #13

J'evolue, j'ai réussi à faire pratiquement ce que je voulais
Je me suis fait une macro 'voir' pour pouvoir vérifier le contenu de la feuille 2 parce que ma macro de répercussion quotidienne qui se fait par le bouton 'Fin de journée'recopie les données, positionne le curseur pour le lendemain et positionne le curseur pour le jour suivant (le probleme est que les utilisateurs zappent parfois cette étape le jour meme et il faut pouvoir controler. L'idéal serait d'ailleurs que le curseur se positionne automatiquement au bon endroit en fonction du calendrier mais je n'ai pas trouvé la façon de faire ça.

Enfin, pour l'instant je voudrais surtout pouvoir faire fonctionner la macro 'par semaine' sur l'onglet statistiques. Il fait appel à un userform mais le fait d'avoir masqué les feuiles bloque la macro, que dois je rajouter pour que ça remarche?
Je joins le dernier état d'avancement de mon fichier
Merci d'avance [file name=parjourtest.zip size=49986]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/parjourtest.zip[/file]

 

Pièces jointes

• parjourtest.zip

  48.8 KB · Affichages: 31

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 29 Avril 2006

• #14

Bien le bonjour rice,
Recopie ce code sur tes feuilles (vba) :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = '$A$1' Then
If Me.Range('A1') = 1 Then 'Tu peux changer la valeur 1 par celle que tu veux.
Sheets('recherche').Visible = xlSheetsVisible
Sheets('statistiques').Visible = xlSheetsVisible
Sheets('recherche').Visible = True
Sheets('statistiques').Visible = True
Sheets('saisie').Select
Application.ScreenUpdating = True
Else
Sheets('recherche').Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets('statistiques').Activate
ActiveWindow.SelectedSheets.Visible = False
End If
End If
End Sub

et celui-ci sur ThisWorkbook

Sub Workbook_Open()
Sheets('recherche').Activate
Worksheets('recherche').Visible = xlSheetVeryHidden
Sheets('statistiques').Activate
Worksheets('statistiques').Visible = xlSheetVeryHidden
End Sub

En te souhaitant un bon Week-end.

 

Vote positif 0 Vote négatif

R

rice

Guest

• 29 Avril 2006

• #15

Bonjour Marc
Je vais tester ça
as tu pu regarder mon dernier souci qui est que la macro qui fait appel à un userbox buggue du fait que les onglets sont cachés? (cf mon dernier fichier joint)

En fait, je n'ai pas testé cette piste avec le code que tu me donnes mainteneant donc si ça se trouve c'est ok mais il faut que je vérifie
(le probleme est que je suis parti d'un petit truc et apres tout s'imbrique
Bon, à suivre
Bon week end à toi et tous les participants du forum

 

Vote positif 0 Vote négatif