Afficher Masq Feuil par raccourci clavier

Gérard DEZAMIS

XLDnaute Accro

• 8 Février 2006

• #2

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

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 8 Février 2006

• #3

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

'avec un raccourci clavier'

@+GD

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 8 Février 2006

• #4

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

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 8 Février 2006

• #5

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.

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 8 Février 2006

• #6

Bonsoir

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

@+Jean-Marie

 

Vote positif 0 Vote négatif