masquer une feuille des qu'elle n'est plus active

[moutchec]

Bonjour à tous,
je cherche un code vba pour masquer automatiquement la feuille 1 de mon classeur dès qu'elle n'est plus active.
Merci d'avance pour votre aide.

 

[Lone-wolf]

Bonjour moutchec , le Forum

Dans ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If ActiveSheet.Name = "Feuil1" Then
        Exit Sub
    Else
        Feuil1.Visible = False
    End If
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Feuil1.Visible = True
    Cancel = True
End Sub

 

[M12]

Bonjour à tous
Bonjour Lone-Wolf

Au plus simple, à mettre dans la feuille concernée

Private Sub Worksheet_Deactivate()
  Sheets("Feuil1").Visible = 0
End Sub

 

[moutchec]

Bonjour à tous
Bonjour Lone-Wolf

Au plus simple, à mettre dans la feuille concernée

Private Sub Worksheet_Deactivate()
  Sheets("Feuil1").Visible = 0
End Sub

bonjour à tous et merci. le code fonctionne.