Discussion :

[Thechouans]

Bonjour,

Désolé de faire encore appel à vous mais je sèche!

J'ai un fichier qui possède plusieurs onglets
J'aimerai que les onglets x et y soient tout le temps caché sauf quand on fait appel à eux à partir d'un bouton se trouvant sur un onglet "RECAP"
Et donc sauf quand ces onglets sont actifs.

J'ai réalisé le code suivant mais je ne sais pas d'ou l'appeler! Avez vous une idée? Merci!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub AffichageOnglet()
 
Dim ws As Worksheet
 
x = "Jalon Valid DE"
y = "Jalon Valid concept"
 
 If ActiveSheet.Name <> x Or ActiveSheet.Name <> y Then
    For Each ws In ActiveWorkbook.Worksheets
 
        If ws.Name = x Or ws.Name = y Then
           Sheets(x).Visible = False
           Sheets(y).Visible = False
        Else
           ws.Visible = True
 
        End If
    Next ws
 
 End If
 
End Sub

[Philippe Tulliez]

Bonjour,
Lorsqu'il s'agit de Masquer/Afficher des lignes, colonnes, feuilles, etc. , je préconise l'utilisation d'un bouton bascule (ToggleButton) soit ActveX soit formulaire.

Exemple avec un bouton ActiveX nommé tglHideUnhide en utilisant la propriété CodeName de deux feuilles (shtSource et shtTarget)
Code à copier dans le module de la feuille où l'on a placé le bouton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub tglHideUnhide_Click()
  Dim msg()
  msg = Array("Afficher", "Cacher")
  With Me.tglHideUnhide
    .Caption = msg(Abs(.Value))
     shtTarget.Visible = .Value
     shtSource.Visible = .Value
  End With
End Sub

Pour savoir ce que c'est que le CodeName d'une feuille, à lire ce billet VBA – CodeName d’une feuille Excel

[EDIT]
Variante : Si l'on souhaite que les feuilles soient réellement cachées (Constante xlVeryHidden), il suffit d'additionner la valeur True ou False de 2 (lignes 6 & 7 ci-dessus)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    shtTarget.Visible = .Value + 2
    shtSource.Visible = .Value + 2