XL 2013 MACRO AFFICHAGE FEUILLE

Rabeto

XLDnaute Occasionnel
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.
 

Hasco

XLDnaute Barbatruc
Repose en paix
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
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
bonjour
exemple
VB:
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof