Afficher Masq Feuil par raccourci clavier

[Marc_du_78]

Bonsoir le Forum,

Petite question :
Est-il possible d'afficher et de masquer une feuille par un raccourci clavier ?
En vous remerciant et vous souhaitant une bonne soirée

 

[Gérard DEZAMIS]

Bonsoir Marc

Sub Macro1()
' Touche de raccourci du clavier: Ctrl+u
'
Sheets('Feuil1').Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

Sub Macro2()
' Touche de raccourci du clavier: Ctrl+t
Sheets('Feuil1').Visible = True
Range('A1').Select
End Sub

avec l'enregistreur de macro
ça marche !

@+GD

 

[Gérard DEZAMIS]

Re
en relisant je vien de me rendre compte que j'avais avalé une partie de la question

'avec un raccourci clavier'

@+GD

 

[Gérard DEZAMIS]

Re

Sub Alternatif()
If Sheets('Feuil1').Visible = True Then
Sheets('Feuil1').Visible = False
Else: Sheets('Feuil1').Visible = True
End If
End Sub

avec un seul raccourci

@+GD

 

[Marc_du_78]

Bonsoir Gérard,
Je te remercie d'avoir si bien compris le sens de ma question qui était en fait celle que tu as si gentiment proposé par la sub alternatif.

 

[JeanMarie]

Bonsoir

Une sub alternative à la macro de Gérard
Public Sub CacherVoir()
Sheets('Feuil1').Visible = Sheets('Feuil1').Visible - vbTrue
End Sub

@+Jean-Marie