masquer pages

[laurent]

Bonjour,

je souhaiterai masquer la page 1 de l'onglet 3 si le résultat de la cellule F12 située dans l'onglet 1 est égal à 5

D'avance merci à tous

laurent

 

[Papy Novice]

Salut Laurent
Voici une petite macro (à adapter) trouvée sur cet admirable site qui devrait t'apporter un début de solution. Au lieu et place de MsgBox tu appelle une macro qui masquera ta feuille.

macro évènementielle dans le Private Module de la Feuille en Question :
Soit la cellule 'A1' est modifiée par Saisie (ou par Macro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$1' Then
If Me.Range('A1') = 100 Then
MsgBox '100 en A1'
Else
MsgBox 'Pas 100 en A1'
End If
End If
End Sub

Soit la cellule 'A1' est modifiée par Formule

Private Sub Worksheet_Calculate()
If Me.Range('A1') = 100 Then
MsgBox '100 en A1'
Else
MsgBox 'Pas 100 en A1'
End If
End Sub

Pensant t'avoir été utile, je te souhaite une bonne soirée
Jean