2 cases à cocher controle 1 onglet

Bonjour

Je fais encore appel à votre savoir

J'ai 2 cases à cocher (CheckBox5&6) qui contrôlent la visibilité de différents onglets (voir ci-bas)

J'ai un onglet (sheet27) qui doit être invisible si les 2 cases à cocher (CheckBox5&6) sont "faux"

Autrement dit, comment puis-je controler l'onglet commun?

• si CheckBox 5 ou 6 "vrai" => onglet visible
• si CheckBob 5 et 6 "faux"=> onglet invisible

Voici le code que j'ai présentement

Private Sub CheckBox5_Click()

If CheckBox5 Then

Sheet30.Visible = xlSheetVisible

Sheet55.Visible = xlSheetVisible

Sheet58.Visible = xlSheetVisible

Else

Sheet30.Visible = xlSheetHidden

Sheet55.Visible = xlSheetHidden

Sheet58.Visible = xlSheetHidden

End If

End Sub

Private Sub CheckBox6_Click()If CheckBox6 Then

Sheet34.Visible = xlSheetVisible

Sheet46.Visible = xlSheetVisible

Sheet59.Visible = xlSheetVisible

Else

Sheet34.Visible = xlSheetHidden

Sheet46.Visible = xlSheetHidden

Sheet59.Visible = xlSheetHidden

End If

End Sub

Merci de votre aide

Joh.

Salut le forum

Johanne essaye ceci

Private Sub CheckBox5_Click()
If checkbox5 Then
Sheet30.Visible = xlSheetVisible
Sheet55.Visible = xlSheetVisible
Sheet58.Visible = xlSheetVisible
Sheet27.Visible = xlSheetVisible
Else
Sheet30.Visible = xlSheetHidden
Sheet55.Visible = xlSheetHidden
Sheet58.Visible = xlSheetHidden
If Not checkbox6 Then Sheet27.Visible = xlSheetHidden
End If
End Sub

Private Sub CheckBox6_Click()
If checkbox6 Then
Sheet34.Visible = xlSheetVisible
Sheet46.Visible = xlSheetVisible
Sheet59.Visible = xlSheetVisible
Sheet27.Visible = xlSheetVisible
Else
Sheet34.Visible = xlSheetHidden
Sheet46.Visible = xlSheetHidden
Sheet59.Visible = xlSheetHidden
If Not checkbox5 Then Sheet27.Visible = xlSheetHidden
End If
End Sub

Mytå

Merci Mytå

Ça fonctionne à merveille

Vous m'enlevez une épine du pied

Joh...