Masquer des onglet sous condition

[Jacques25]

Bonjour à tous,

J'ai un petit soucis sur un fichier, je souhaiterai masquer des onglets en fonction de 2 critères qui sont la première lettre de leurs noms et la valeur d'une cellule dans chacun de ses onglet.
Je vous ai joint un petit fichier avec les explications.

Merci d'avance de l'aide que vous pourrez m'apporter.

Jack

 

[Robert]

Re : Masquer des onglet sous condition

Bonjour Jacques, bonjour le forum,

Essaie comme ça (si j'ai bien compris...) :

Private Sub CommandButton1_Click()
For Each sh In Sheets
    If Left(sh.Name, 1) = "F" And sh.Range("A1").Value = 1 Then sh.Visible = 0 Else sh.Visible = 1
Next sh
Sheets("traduction").Visible = 0
Sheets("exemple").Visible = 0
End Sub

 

[Jacques25]

Re : Masquer des onglet sous condition

Bonjour Robert,

Merci c'est exactement ce que je voulais, jamais déçu sur ce forum

Bonne journée à tous.

Jack

 

[Papou-net]

Re : Masquer des onglet sous condition

Bonjour Jack,

Je me suis encore fait griller par Robert (salut à toi Robert, vivvement que tu partes en vacances pour me laisser ma chance!).

Mais puisque mon code est quelque peu différent, je le joins:

Private Sub CommandButton1_Click()
Sheets("traduction").Visible = 0
Sheets("exemple").Visible = 0
For Each sh In Sheets
  If Left(sh.Name, 1) = "F" Then sh.Visible = IIf(sh.Range("A1").Value = 1, 0, 1)
Next sh
End Sub

Cordialement.