Tester si une feuille est cachée

[malabarbe]

Bonjour,

J'ai fais ce code, mais j'ai une erreur

'Décache la feuille 2
If Feuil2.Visible = False Then
    Sheets("Feuil2").Visible = True
End If

Si vous avez une idée

 

[jojo3008]

Re : Tester si une feuille est cachée

feuil2 et sheets("Feuil2") n'est pas pareil !

 

[malabarbe]

Re : Tester si une feuille est cachée

Ok jojo3008,

Mais comment faire ?

 

[MJ13]

Re : Tester si une feuille est cachée

Bonjour Malabarbe, Jojo


Quand même Malabarbe, si tu ne comprends pas le B.A.B.A du VBA, il faut te recycler 🙂.

 

[malabarbe]

Re : Tester si une feuille est cachée

Désolé,

J'ai cherché partout l'info mais je n'ai pas trouvé !

 

[MJ13]

Re : Tester si une feuille est cachée

Re

Extrait de mon Appli pour faire ses comptes 😉.

Sub Masque_Toutes_Feuilles()
NomFact = ActiveSheet.Name
If Sheets("Saisie").Visible = False Then Sheets("Saisie").Visible = True
Sheets("Saisie").Select
Dim Sht As Worksheet
    Dim nom(1000)
    For Each Sht In ActiveWindow.SelectedSheets
    iFsel = iFsel + 1
       nom(iFsel) = Sht.Name
    Next Sht
    'Stop
   nc = ActiveWorkbook.Sheets.Count
'For O = 1 To iFsel
For n = 1 To nc
If Sheets(n).Visible = True Then Sheets(n).Select
If ActiveSheet.Name = nom(iFsel) Then GoTo suite Else Sheets(n).Visible = False
suite:
Next
'Stop
For O = 1 To iFsel
Sheets(nom(O)).Visible = True
Next
End Sub

 

[Staple1600]

Re : Tester si une feuille est cachée

Bonjour à tous

Perso, je la jouerai comme cela, MJ13 😉

Sheets("Saisie").Visible = Not Sheets("Saisie").Visible

 

[MJ13]

Re : Tester si une feuille est cachée

Re, Bonjour JM

Perso, je la jouerai comme cela, MJ13 😉

vba Code:

Sheets("Saisie").Visible = Not Sheets("Saisie").Visible
​

Why not 🙂!

 

[malabarbe]

Re : Tester si une feuille est cachée

Merci à tous pour vos bons conseils.

J'ai trouvé mon bonheur.

Bonne journée