XL 2013 MACRO AFFICHAGE FEUILLE

[Rabeto]

Bonjour,

Je souhaite afficher 2 Feuilles à l’exécution de ma macro. ( PRESENCE et MODOP1 ) et masquer tout le reste, mais cela ne marche pas,
Si j'enlève les code que j'ai mis en Gras, ça marche bien ( affichage de la feuille PRESENCE et masquer tout les autres )
mais en ajoutant les codes pour MODOP1 car fait erreur.

J'utilise ce code

Private Sub PRESENCE_Click()
Worksheets("PRESENCE").Visible = True
Worksheets("MODOP1").Visible = True
Sheets("PRESENCE").Select
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = ("PRESENCE" & "MODOP1") Then .Visible = xlSheetHidden
End With
Next
End Sub

merci pour votre aide.

 

[Claudy]

Bonjour,
je pense qu'il est impossible d'afficher deux feuilles d'un même classeur..
Ou alors tu dois afficher deux classeurs.
Bonne journée,
Claudy

 

[Hasco]

Bonjour,

Le test ne semble pas être le bon.
Correction possible et à tester (pas de classeur exemple) :
If .Name<>"PRESENCE" AND .Name<>"MODOP1" Then .Visible = xlSheetHidden

Bon tests

 

[Claudy]

Bonjour Roblochon,
Donc il est possible d'afficher deux feuilles?
A+
Claudy

 

[Rabeto]

Voici un fichier TEST

Je souhaite que seul les feuilles ( PRESENCE et MODOP1 ) s'affichent et les autres se cachent.

La proposition ne marche pas,

 

[Rabeto]

Bonjour Roblochon,
Donc il est possible d'afficher deux feuilles?
A+
Claudy

Oui c'est possible de le faire mais la façon comment le faire, reste à trouver pour nous
C'est comme le contraire de masquer plusieurs feuille mais ici on demande une affichage en précisant bien les feuilles à afficher

 

[Claudy]

J'ai un doute....
Pour moi on sait afficher une seule feuille, et garder un onglet visible, et d'autres masqués.
Claudy

 

[Hasco]

Re,

@Rabeto si vous voulez qu'on vous réponde correctement mettez au moins votre macro dans le fichier !

 

[patricktoulon]

bonjour
exemple

Sub test()
    For i = 1 To Sheets.Count
        If Sheets(i).Name = "Feuil1" Or Sheets(i).Name = "Feuil3" Then Sheets(i).Visible = True Else Sheets(i).Visible = 0
    Next
    Sheets("Feuil1").Select
    ActiveWindow.NewWindow
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlVertical
    Windows(ThisWorkbook.Name & ":1").Activate
    Sheets("Feuil3").Select
End Sub

 

[Hasco]

Re,

Sub masquerFeuilles()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "MODOP1" And ws.Name <> "PRESENCE" Then ws.Visible = xlSheetHidden
Next
End Sub

 

[Rabeto]

merci pour vos réponses