1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Worksheet_Activate()
EstDansTableau
End Sub
Private Sub Worksheet_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'code to show ribbon.
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
EstDansTableau
End Sub
Private Sub EstDansTableau()
If Intersect(ActiveCell, Range("Tableau")) Is Nothing Then
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'affiche le ruban
Else
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'masque le ruban
End If
End Sub |
Partager