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